tests/tbs/tb0509.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

type
  tp1 = function(var i : longint) : longint;

  tp2 = type tp1;

procedure p(f : tp1);
  begin
  end;


procedure p(f : tp2);
  begin
  end;

var
  f : tp1;

begin
  f:=nil;
  if assigned(f) then
    p(f);
end.