fpcsrc/tests/tbs/tb0042.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ 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.