[unix-history] / usr / doc / pascal / typequ.p

program x(output);
var
	x: ^ integer;
	y: ^ integer;
begin
	new(y);
	x := y;
	x^ := 1;
	x := x;
end.
Commit	Line	Data
1f017636 BJ	1	program x(output);
	2	var
	3	x: ^ integer;
	4	y: ^ integer;
	5	begin
	6	new(y);
	7	x := y;
	8	x^ := 1;
	9	x := x;
	10	end.