* new(precord) test

tests/tbs/tb0338.pp

@@ -0,0 +1,14 @@
+{$h+}
+
+Type
+  TMyRec = Record
+    AString : AnsiString;
+  end;
+  PMyRec = ^TMyRec;
+
+Var
+  M : PMyRec;
+
+begin
+  M:=New(PmyRec);
+end.