index 297da8de9a9c9d21c05fe7db43989753f35613cb..5b2fc48e91e4e54175f56baa5dd1ea247781bcb3 100644 (file)
--- a/test.c
+++ b/test.c
static char source_test[] =
"MODULE Test;"
"IMPORT I := Imported;"
- "TYPE"
- " Callback = PROCEDURE() : INTEGER;"
- ""
"VAR"
- " cb : Callback;"
- " i : INTEGER;"
- " r : I.Rider;"
- ""
- "PROCEDURE RelBack;"
+ " x : I.Rider;"
"BEGIN"
- " i := 666;"
- "END RelBack;"
- ""
- "BEGIN;"
- " i := ABS(-1);"
- " i := cb();"
- " RelBack;"
- " I.Ln;"
+ " I.Ln;"
"END Test."
;
static char source_imported[] =
"MODULE Imported;"
"TYPE"
- " Rider = RECORD i : INTEGER; END;"
+ " Rider* = RECORD i : INTEGER; END;"
""
- "PROCEDURE Ln;"
+ "PROCEDURE Ln*;"
"END Ln;"
""
"BEGIN;"