b07a08d0898a7f2816a6bb281c9f6050ac31d9bb
3 #include <assert.h>
6 "MODULE Test;"
7 "TYPE"
8 " Rec = RECORD i : INTEGER; END;"
9 "VAR"
10 " i : INTEGER;"
11 " j : INTEGER;"
12 ""
13 "PROCEDURE ^ Tier(x : INTEGER);"
14 ""
15 "PROCEDURE Tier(x : INTEGER);"
16 "VAR a : INTEGER;"
17 "BEGIN;"
18 " a := 1;"
19 "END Tier;"
20 ""
21 "PROCEDURE ^ Tier(x : INTEGER);"
22 ""
23 "BEGIN;"
24 " i := 666;"
25 " Tier(1);"
26 "END Test."
27 ;
32 int
34 {
37 //mod -> begin();
41 }