* Adding test to catch internal error 200411013

tests/webtbs/tw41175.pp

@@ -0,0 +1,19 @@
+{ %NORUN }
+{ Test for internal error on line 17 }
+
+program tw41175;
+{$pointermath on}
+
+type
+  PRec = ^TRec;
+  TRec = record
+    X: NativeInt;
+  end;
+
+var
+  R: TRec;
+
+begin
+  R:=PRec(nil)[0];
+  WriteLn('ok');
+end.