mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:47:53 +02:00
23 lines
216 B
ObjectPascal
23 lines
216 B
ObjectPascal
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.
|