d828f4a2e855adbbd24d2852738453892614f634
3 #include <assert.h>
6 "MODULE Test;"
7 "TYPE"
8 " Callback = PROCEDURE() : INTEGER;"
9 ""
10 "VAR"
11 " cb : Callback;"
12 " i : INTEGER;"
13 ""
14 "PROCEDURE RelBack;"
15 "BEGIN"
16 " i := 666;"
17 "END RelBack;"
18 ""
19 "BEGIN;"
20 " i := 1;"
21 " i := cb();"
22 " RelBack;"
23 "END Test."
24 ;
29 int
31 {
34 //mod -> begin();
38 }