瀏覽代碼

no message

florian 20 年之前
父節點
當前提交
661b1f39b7
共有 1 個文件被更改,包括 9 次插入0 次删除
  1. 9 0
      tests/tbs/tb0481.pp

+ 9 - 0
tests/tbs/tb0481.pp

@@ -0,0 +1,9 @@
+type
+  trec = record
+    data : longint;
+  end;
+  prec = ^trec;
+
+begin
+  writeln(longint(@prec(0)^.data));
+end.