typequ.p

来自「早期freebsd实现」· P 代码 · 共 11 行

program x(output);
var
	x: ^ integer;
	y: ^ integer;
begin
	new(y);
	x := y;
	x^ := 1;
	x := x;
end.