* test for auto derefencing

2025-04-11 11:58:41 +02:00 · 2001-05-19 12:11:42 +00:00 · 2001-05-19 12:11:42 +00:00 · fc88544de0
commit fc88544de0
parent 9f15f8638b
1 changed files with 22 additions and 0 deletions
--- a/tests/tbs/tb0355.pp
+++ b/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.