mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 09:39:33 +02:00
11 lines
180 B
ObjectPascal
11 lines
180 B
ObjectPascal
{ %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.
|