fpcsrc/tests/test/tmaclocalprocparam4e.pp


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

{$modeswitch nestedprocvars}

function test(l: longint): longint;
begin
  test:=l*2;
end;

const
  pp: function(l: longint): longint is nested = @test;

begin
  if pp(6)<>12 then
    halt(1);
end.