4 #include <string.h>
5 #include <assert.h>
8 "MODULE Test;"
9 "IMPORT I := Imported;"
10 "VAR"
11 " x, y : I.Rider;"
12 "PROCEDURE Proc(x, y, z : INTEGER);"
13 "END Proc;"
14 "BEGIN"
15 " x.i := 1;"
16 " I.Ln;"
17 " I.i := 666;"
18 "END Test."
19 ;
22 "MODULE Imported;"
23 "TYPE"
24 " Rider* = RECORD i, j, k : INTEGER; END;"
25 "VAR"
26 " i- : INTEGER;"
27 ""
28 "PROCEDURE Ln*;"
29 "END Ln;"
30 ""
31 "BEGIN;"
32 "END Imported."
33 ;
40 {
42 {
44 }
46 {
48 }
49 else
50 {
52 }
53 }
55 int
57 {
64 }