{ %fail }

{$Mode ObjFPC}{$H+}

procedure A(i: longint);
begin

end;

begin
  A(false);
end.