|
|
1.1 ! root 1: (* ! 2: * Test of dealing with an opaque type that is never defined. ! 3: *) ! 4: ! 5: module main; ! 6: ! 7: from imptypes import RT; ! 8: from io import Writef, output; ! 9: ! 10: type ! 11: T = record ! 12: a : integer; ! 13: b : RT; ! 14: c : integer; ! 15: end; ! 16: ! 17: var r : T; ! 18: ! 19: begin ! 20: r.a := 3; ! 21: r.c := 4; ! 22: Writef(output, "this is a test\n"); ! 23: end main.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.