tests/tbs/tb0218.pp


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

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

{$mode tp}

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.