fpc/tests/test/tanonfunc25.pp

{ %FAIL }

program tanonfunc25;

{$mode objfpc}
{$modeswitch anonymousfunctions}
{$modeswitch functionreferences}

{ verify that nested procedures aren't accessible from anonymous functions
  in the captured procedure }

type
  tproc = reference to procedure;

procedure baz(p: tproc);
begin
  p();
end;

procedure foo;

  procedure bar;
  begin
  end;

begin
  bar;
  baz(procedure begin bar end);
end;

begin
  foo;
end.