X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=test.c;h=960bef8ce45254f4e7c788f012ec2e5fd7623c62;hp=8f3edc4aec855db2d7e30c6f1b24d0f45ece44c3;hb=3376c57aa304940b405940c6463df71c7c1c7f01;hpb=8520fd72cf3c1daeabbb8da91290dae85fc39c91

diff --git a/test.c b/test.c
index 8f3edc4..960bef8 100644
--- a/test.c
+++ b/test.c
@@ -4,19 +4,19 @@
 
 static const char source[] =
 	"MODULE Test;"
-	""
 	"TYPE"
-	"	MyInt = INTEGER;"
-	"	MyRec = POINTER TO RECORD"
-	"		a : MyInt;"
-	"		next : MyRec;"
-	"	END;"
+	"	MyArr = ARRAY 3 OF INTEGER;"
+	"	MyArrPtr = POINTER TO MyArr;"
+	"	MyRec = POINTER TO MyRecDesc;"
+	"	MyRecDesc = RECORD next : POINTER TO MyRecDesc END;"
 	""
 	"VAR"
-	"	r : MyRec;"
+	"	a : MyArr;"
+	"	b : MyArrPtr;"
+	"	c : MyRec;"
+	"	d : MyRecDesc;"
 	""
 	"BEGIN"
-	"	"
 	"END Test."
 ;