{ %norun }

{$mode tp}
{$modeswitch nestedprocvars}

type
  tprocedure = procedure;

procedure test(p: codepointer);

  procedure nested;
    begin
    end;

begin
  { this should be a plain pointer }
  test(@nested);
end;

begin
end.