freepascal.compiler/tests/tbs/tb0218.pp

{ Old file: tbs0257.pp }
{ problem with procvars in tp mode                     OK 0.99.11 (PM) }

{$mode tp}
{$F+}

type proc = procedure(a : longint);
procedure test(b : longint);
begin
  Writeln('Test ',b);
end;

var
  t : proc;

begin
  t:=test;
  t:=proc(test);
  test(3);
  t(5);
end.