mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 11:38:01 +02:00
17 lines
214 B
ObjectPascal
17 lines
214 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.
|