index 5b2fc48e91e4e54175f56baa5dd1ea247781bcb3..4bef02c8bd7bc3c33d0788d4243d49e875f575ad 100644 (file)
--- a/test.c
+++ b/test.c
"MODULE Test;"
"IMPORT I := Imported;"
"VAR"
- " x : I.Rider;"
+ " x, y : I.Rider;"
+ "PROCEDURE Proc(x, y, z : INTEGER);"
+ "END Proc;"
"BEGIN"
+ " x.i := 1;"
" I.Ln;"
+ " I.i := 666;"
"END Test."
;
static char source_imported[] =
"MODULE Imported;"
"TYPE"
- " Rider* = RECORD i : INTEGER; END;"
+ " Rider* = RECORD i, j, k : INTEGER; END;"
+ "VAR"
+ " i- : INTEGER;"
""
"PROCEDURE Ln*;"
"END Ln;"