Return to pointer.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / pdx / test

BSD 4.3reno

program pointer(input, output);
type	xp = ^x;
	x = record
		y : integer;
		a : real;
	end;

var	p : xp;
begin
	new(p);
	p^.y := 5;
	p^.a := 3.14;
	writeln('pointer test');
end.

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