freepascal.compiler/tests/webtbf/tw4781b.pp

{ %fail }
{ %OPT=-Sew -vw}
program tw4781b;
var U : integer;

procedure B; 
begin 
if U = 0 then; 
if U = 0 then; 
end;

begin
end.