Return to align.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

BSD 4.3tahoe

program test(output);
type
name = array[1..4] of char;
rec = record
	x :boolean;
	y :name;
	end;
var
foo, bar :rec;
nm :name;
begin
foo.y := '    ';
foo.y[1] := 'n';
bar := foo;
nm := '    ';
nm[1] := 'n';
writeln('foo =', foo.y, '<- bar =', bar.y, '<- nm =', nm, '<-');
if (foo.y = nm) then
	writeln('cmp works')
else
	writeln('cmp fails');
end.

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