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(VAR x : INTEGER);"
14 "VAR"
15 " z : INTEGER;"
16 "BEGIN;"
17 " x := i;"
18 "END Tier;"
19 ""
20 "BEGIN;"
21 " i := 666;"
22 " Tier(j);"
23 "END Test."
24 ;
29 int
31 {
34 //mod -> begin();
38 }