freepascal.compiler/tests/tbf/tb0185.pp

{ %fail }
procedure p;local;
  begin
  end;

var
  myp : tprocedure;
begin
  myp:=@p;
end.