fpcsrc/tests/webtbs/tw2277.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{$mode tp}

type
  tproc=procedure;
var
  p : tproc;

function f:tproc;
begin
  exit(p);
end;

begin
end.