tests/webtbf/tw1395.pp


1
2
3
4
5
6
7
8
9
10

{ %FAIL }
{ Source provided for Free Pascal Bug Report 1395 }
{ Submitted by "Stian Skjelstad" on  2001-02-08 }
{ e-mail: stian@lilo.no }
var
 a, b : pointer;

begin
 a^:=b^;
end.