index 4bef02c8bd7bc3c33d0788d4243d49e875f575ad..f1b175cf476d22f404de648888f0d39e45c9de81 100644 (file)
--- a/test.c
+++ b/test.c
#include <assert.h>
static char source_test[] =
+ "(* Main module *)"
"MODULE Test;"
"IMPORT I := Imported;"
"VAR"
" x, y : I.Rider;"
"PROCEDURE Proc(x, y, z : INTEGER);"
- "END Proc;"
"BEGIN"
- " x.i := 1;"
- " I.Ln;"
- " I.i := 666;"
+ " x := 1;"
+ "END Proc;"
+ "BEGIN;"
+ " y.i := 1;"
+ " I.a[0] := 1;"
"END Test."
;
static char source_imported[] =
"MODULE Imported;"
"TYPE"
- " Rider* = RECORD i, j, k : INTEGER; END;"
+ " Rider* = RECORD i*, j-, k : INTEGER; END;"
"VAR"
" i- : INTEGER;"
+ " a* : ARRAY 3 OF INTEGER;"
""
"PROCEDURE Ln*;"
"END Ln;"
""
"BEGIN;"
+ " i := 1;"
+ " a[0] := 555;"
"END Imported."
;