X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=test.c;h=44b84651f535348afba524c61fa810f634bbe4fd;hp=2c2966752c60839008da78f4ce6eec82f9154e3a;hb=2d029d2c2b27639e3a2b6c43e63788b00110818e;hpb=518cba11c21426f922afef90048f5f9c8130fed2

diff --git a/test.c b/test.c
index 2c29667..44b8465 100644
--- a/test.c
+++ b/test.c
@@ -4,11 +4,15 @@
 
 static const char source[] =
 	"MODULE Test;"
+	"TYPE"
+	"	Rec = RECORD i : INTEGER; END;"
 	"VAR"
 	"	i : INTEGER;"
 	"	j : INTEGER;"
 	""
 	"PROCEDURE Tier(VAR x : INTEGER);"
+	"VAR"
+	"	z : INTEGER;"
 	"BEGIN;"
 	"	x := i;"
 	"END Tier;"