path: root/check/type/bool/fail-or.p

program main ( input, output );
        var a: integer;
begin
	a := 1;
        (a = 1) or 1.1
end.