297da8de9a9c9d21c05fe7db43989753f35613cb
4 #include <string.h>
5 #include <assert.h>
8 "MODULE Test;"
9 "IMPORT I := Imported;"
10 "TYPE"
11 " Callback = PROCEDURE() : INTEGER;"
12 ""
13 "VAR"
14 " cb : Callback;"
15 " i : INTEGER;"
16 " r : I.Rider;"
17 ""
18 "PROCEDURE RelBack;"
19 "BEGIN"
20 " i := 666;"
21 "END RelBack;"
22 ""
23 "BEGIN;"
24 " i := ABS(-1);"
25 " i := cb();"
26 " RelBack;"
27 " I.Ln;"
28 "END Test."
29 ;
32 "MODULE Imported;"
33 "TYPE"
34 " Rider = RECORD i : INTEGER; END;"
35 ""
36 "PROCEDURE Ln;"
37 "END Ln;"
38 ""
39 "BEGIN;"
40 "END Imported."
41 ;
48 {
50 {
52 }
54 {
56 }
57 else
58 {
60 }
61 }
63 int
65 {
72 }