if1_test.pl

var x;


procedure foo()
begin
end;

begin
  x := 1;
  if x > 0 then begin x := x + 1; end
  if x > 0 then begin x := x + 1; end;
  if x > 0 then begin x := x + 1; end
  ! x;
end.