index 2c2966752c60839008da78f4ce6eec82f9154e3a..44b84651f535348afba524c61fa810f634bbe4fd 100644 (file)
--- a/test.c
+++ b/test.c
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;"