path: root/tests/webtbf/tw3562.pp

{ %fail }
{ %opt=-Sew -vw }

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

begin
end.