[unix-history] / tests / t18.p

program main(output);
type
	t = record
		a: real;
		b: integer;
	end;
var
	x: t;
begin
	x := t(1.0, 1);
	writeln(x.a, x.b);
end.
Commit	Line	Data
fde98a2d BJ	1	program main(output);
	2	type
	3	t = record
	4	a: real;
	5	b: integer;
	6	end;
	7	var
	8	x: t;
	9	begin
	10	x := t(1.0, 1);
	11	writeln(x.a, x.b);
	12	end.