mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-18 20:31:29 +02:00
12 lines
93 B
ObjectPascal
12 lines
93 B
ObjectPascal
type
|
|
|
|
p=^p2;
|
|
p2 = ^p;
|
|
|
|
var a:p;
|
|
a2:p2;
|
|
|
|
begin
|
|
a:=@a2;
|
|
a:=a2^;
|
|
end. |