mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 19:39:33 +02:00
16 lines
213 B
ObjectPascal
16 lines
213 B
ObjectPascal
{ Old file: tbs0132.pp }
|
|
{ segmentation fault with type loop OK 0.99.7 (FK) }
|
|
|
|
type
|
|
|
|
p=^p2;
|
|
p2 = ^p;
|
|
|
|
var a:p;
|
|
a2:p2;
|
|
|
|
begin
|
|
a:=@a2;
|
|
a2:=@a;
|
|
a:=a2^;
|
|
end. |