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

begin
  p;
end.