Add test for bug report 38973 (already fixed in trunk/main)

tests/webtbs/tw38973.pp

@@ -0,0 +1,12 @@
+{%OPT=-O2}
+{$mode objfpc}
+var
+     b : LongBOOL;
+     pb : ^LongBOOL;
+begin
+    b:=true;
+    pb:=nil;
+   if Assigned(pb) and pb^ then
+     Exit;
+    b:=false;
+end.