* test for auto derefencing

tests/tbs/tb0355.pp

@@ -0,0 +1,22 @@
+{$mode delphi}
+
+const
+  CSV_Internal = 10;
+
+type
+  PTypeRec = ^TTypeRec;
+  TTypeRec = record
+    atypeid: Word;
+  end;
+
+
+function ChangeType(newtype: PTypeRec): Pointer;
+
+begin
+  if NewType.AtypeID = CSV_Internal then
+  begin
+  end;
+end;
+
+begin
+end.