1*44119Sbosticmodule main; 2*44119Sbosticfrom imptypes import RT; 3*44119Sbosticimport imported; 4*44119Sbostictype 5*44119Sbostic RT = pointer to record 6*44119Sbostic i, j : integer; 7*44119Sbostic end; 8*44119Sbosticvar 9*44119Sbostic p : imported.T; 10*44119Sbostic q : imported.OT; 11*44119Sbostic r : RT; 12*44119Sbosticbegin 13*44119Sbostic new(r); 14*44119Sbostic r^.i := 3; 15*44119Sbostic r^.j := 4; 16*44119Sbostic imported.Blah; 17*44119Sbosticend main. 18