freepascal.compiler/tests/webtbf/tw10833a.pp

{ %OPT=-Sew -vw }
{ %fail }
procedure p;experimental;
  begin
  end;

begin
  p;
end.