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

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