[unix-history] / usr / src / ucb / dbx / tests / mod / variants.mod

module main;
type
    ElementType = (CHAR, INT, REAL);
    VR = record
	case tag : ElementType of
	    CHAR:
		charValue : char;|
	    INT:
		intValue : integer;|
	    REAL:
		realValue : real;
	end;
    end;
var
    vr : VR;
begin
    vr.tag := CHAR;
    vr.charValue := 'c';
    vr.tag := INT;
    vr.intValue := 3;
    vr.tag := REAL;
    vr.realValue := 3.4;
end main.
Commit	Line	Data
37547b14 C	1	module main;
	2	type
	3	ElementType = (CHAR, INT, REAL);
	4	VR = record
	5	case tag : ElementType of
	6	CHAR:
	7	charValue : char;\|
	8	INT:
	9	intValue : integer;\|
	10	REAL:
	11	realValue : real;
	12	end;
	13	end;
	14	var
	15	vr : VR;
	16	begin
	17	vr.tag := CHAR;
	18	vr.charValue := 'c';
	19	vr.tag := INT;
	20	vr.intValue := 3;
	21	vr.tag := REAL;
	22	vr.realValue := 3.4;
	23	end main.