freepascal.compiler/tests/webtbs/tw10833.pp

procedure p;experimental;
  begin
  end;

begin
  p;
end.