Return to opaque.mod CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / dbx / tests / mod

Initial revision

(*
 * Test of dealing with an opaque type that is never defined.
 *)

module main;

from imptypes import RT;
from io import Writef, output;

type
    T = record
	a : integer;
	b : RT;
	c : integer;
    end;

var r : T;

begin
    r.a := 3;
    r.c := 4;
    Writef(output, "this is a test\n");
end main.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.