Return to t18.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

BSD 4.3reno

program Main(output);
type
	t = record
		a: real;
		b: integer;
	end;
var
	x: t;
begin
	with x do begin a:=1.0; b:=1; end;
	writeln(x.a, x.b);
end.

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