X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=test.c;h=1f440779e411b51f514c9409fddf97b033019685;hp=fc0033339d03fff36dbd6f52ba6989c3df777c0c;hb=12ae486a18746b042fcc4ebbefc5449d4d3464af;hpb=c4d4a265b71124ad0e8588601cfc1d66aca84b96

diff --git a/test.c b/test.c
index fc00333..1f44077 100644
--- a/test.c
+++ b/test.c
@@ -11,7 +11,8 @@ static char source_test[] =
 	""
 	"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"
@@ -20,7 +21,8 @@ static char source_test[] =
 	""
 	"BEGIN;"
 	"  NEW(p);"
-	"  p[0] := 1;"
+	"  p[2].k := 1;"
+	"  NEW(q);"
 	"  "
 	"  Out.Open;"
 	"  ChParam(nx);"