{ %fail }
{ %opt=-Sew }

procedure p;
var
  j : longint;
begin
  for j:=1 TO j do;
end;

begin
end.