X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=test.c;h=d8f108377c2fa5299bc8460109e59289ea280c61;hp=b934af876ca2bde9d44397015f95c7ce70953bd5;hb=060a955ff58efde6cb51ab18eaed8f479e2550f3;hpb=338eeae16495bbdcbd8c4f3dad4996346e26139b

diff --git a/test.c b/test.c
index b934af8..d8f1083 100644
--- a/test.c
+++ b/test.c
@@ -5,15 +5,11 @@
 static const char source[] =
 	"MODULE Test;"
 	"TYPE"
-	"	MyRec = POINTER TO MyRecDesc;"
-	"	MyRecDesc = RECORD"
-	"		a : INTEGER;"
-	"	END;"
+	"	Matrix = ARRAY 3, 4 OF INTEGER;"
 	"VAR"
-	"	r : MyRec;"
+	"	m : Matrix;"
 	"BEGIN;"
-	"	r := NIL;"
-	"	r.a := 1;"
+	"	m[2, 3] := 0;"
 	"END Test."
 ;