procedure test;

  begin
  end;

var
   p1 : procedure;
   p2 : pointer;

begin
   p1:=@test;
   p2:=@test;
end.