mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:43:04 +01:00
12 lines
92 B
ObjectPascal
12 lines
92 B
ObjectPascal
type
|
|
|
|
p=^p;
|
|
p2 = ^p2;
|
|
|
|
var a:p;
|
|
a2:p2;
|
|
|
|
begin
|
|
a:=a2;
|
|
a:=a2^;
|
|
end. |