index fc0033339d03fff36dbd6f52ba6989c3df777c0c..1f440779e411b51f514c9409fddf97b033019685 100644 (file)
--- a/test.c
+++ b/test.c
""
"VAR"
" nx- : INTEGER;"
- " p : POINTER TO ARRAY 3 OF INTEGER;"
+ " p : POINTER TO ARRAY 3 OF RECORD i, j, k : INTEGER END;"
+ " q : POINTER TO RECORD x, y, z : INTEGER END;"
""
"PROCEDURE ChParam(VAR i : INTEGER);"
"BEGIN"
""
"BEGIN;"
" NEW(p);"
- " p[0] := 1;"
+ " p[2].k := 1;"
+ " NEW(q);"
" "
" Out.Open;"
" ChParam(nx);"