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

procedure rrr;    
var bar: array[0..1] of integer;
begin
  if bar[1]=1 then;
end;

BEGIN
  rrr ;
END.