The gfortran.dg/minlocval*.f90 tests are generating conditionals past the infinities. For example:
if (x <= +Inf) foo (x); else bar (x); It seems to me that the only possible value for x on the false side is either NAN or undefined (for !HONOR_NANS). Is this correct, or is there some other FP nuance I'm unaware of? gcc/ChangeLog: * range-op-float.cc (build_lt): Handle < -INF. (build_gt): Handle > +INF. gcc/testsuite/ChangeLog: * gcc.dg/tree-ssa/vrp-float-inf-1.c: New test. --- gcc/range-op-float.cc | 18 ++++++++++++++++++ .../gcc.dg/tree-ssa/vrp-float-inf-1.c | 15 +++++++++++++++ 2 files changed, 33 insertions(+) create mode 100644 gcc/testsuite/gcc.dg/tree-ssa/vrp-float-inf-1.c diff --git a/gcc/range-op-float.cc b/gcc/range-op-float.cc index 050f07a9867..4515bbf0b7e 100644 --- a/gcc/range-op-float.cc +++ b/gcc/range-op-float.cc @@ -235,6 +235,15 @@ build_le (frange &r, tree type, const REAL_VALUE_TYPE &val) static void build_lt (frange &r, tree type, const REAL_VALUE_TYPE &val) { + if (real_isinf (&val, 1)) + { + if (HONOR_NANS (type)) + frange_set_nan (r, type); + else + r.set_undefined (); + return; + } + // Hijack LE because we only support closed intervals. build_le (r, type, val); } @@ -252,6 +261,15 @@ build_ge (frange &r, tree type, const REAL_VALUE_TYPE &val) static void build_gt (frange &r, tree type, const REAL_VALUE_TYPE &val) { + if (real_isinf (&val, 0)) + { + if (HONOR_NANS (type)) + frange_set_nan (r, type); + else + r.set_undefined (); + return; + } + // Hijack GE because we only support closed intervals. build_ge (r, type, val); } diff --git a/gcc/testsuite/gcc.dg/tree-ssa/vrp-float-inf-1.c b/gcc/testsuite/gcc.dg/tree-ssa/vrp-float-inf-1.c new file mode 100644 index 00000000000..1d21cce41e6 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/vrp-float-inf-1.c @@ -0,0 +1,15 @@ +// { dg-do compile } +// { dg-options "-O2 -fdump-tree-evrp-details" } + +void foo (); +void bar (double); + +void funky(double f, double g) +{ + if (f <= __builtin_inf ()) + foo (); + else + bar (f); +} + +// { dg-final { scan-tree-dump-not " Inf, Inf" "evrp" } } -- 2.37.1