fpc/tests/tbs/tb0042.pp
2000-11-30 22:38:14 +00:00

17 lines
213 B
ObjectPascal

{ Old file: tbs0047.pp }
{ compiling with -So crashes the compiler OK 0.99.1 (CEC) }
procedure test;
begin
end;
var
p1 : procedure;
p2 : pointer;
begin
p1:=@test;
p2:=@test;
end.