X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=test.c;h=42526b66791c035ca854e2221050f26eeac893e5;hp=7c8e6720506e4c8113282b94656fdaf20d44baca;hb=42da6ba15843521d2b18994d863f2ec3d2672a97;hpb=063ba732ee8778c34a3781270b18d52481dbf0cd

diff --git a/test.c b/test.c
index 7c8e672..42526b6 100644
--- a/test.c
+++ b/test.c
@@ -9,12 +9,16 @@ static const char source[] =
 	"TYPE"
 	"	MyInt = INTEGER;"
 	"	MyArr = ARRAY con OF MyInt;"
+	"	MyRec = RECORD a : MyInt; b : MyInt; END;"
+	"	MyProc = PROCEDURE;"
 	""
 	"VAR"
 	"	k : INTEGER;"
 	"	i : INTEGER;"
 	"	b : BOOLEAN;"
 	"	arr : MyArr;"
+	"	rec : MyRec;"
+	"	proc : MyProc;"
 	""
 	"PROCEDURE Tier;"
 	"BEGIN"
@@ -38,7 +42,10 @@ static const char source[] =
 	"	Tier();"
 	"	Tier2(21, 13);"
 	"	k := Tier3(2);"
-//	"	arr[0] := 1;"
+	"	arr[0] := 1;"
+	"	arr[1] := arr[0];"
+	"	rec.a := 1;"
+	"	rec.b := rec.a;"
 	"END Test."
 ;