https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107071
Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Ever confirmed|0 |1
Status|UNCONFIRMED |NEW
Last reconfirmed| |2022-09-28
--- Comment #2 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> ---
Oups, there are two lines that trigger this in the test. Can you try with this
patch?
diff --git a/gcc/testsuite/gfortran.dg/ieee/modes_1.f90
b/gcc/testsuite/gfortran.dg/ieee/modes_1.f90
index b6ab28847f7..205c47f3800 100644
--- a/gcc/testsuite/gfortran.dg/ieee/modes_1.f90
+++ b/gcc/testsuite/gfortran.dg/ieee/modes_1.f90
@@ -81,15 +81,15 @@ program foo
! Check again
if (ieee_support_underflow_control()) then
call ieee_get_underflow_mode(f)
- if (.not. f) stop 3
+ if (.not. f) stop 4
endif
if (ieee_support_rounding(ieee_down)) then
call ieee_get_rounding_mode(rmode)
- if (rmode /= ieee_down) stop 4
+ if (rmode /= ieee_down) stop 5
endif
if (ieee_support_halting(ieee_overflow)) then
call ieee_get_halting_mode(ieee_overflow, f)
- if (f) stop 5
+ if (f) stop 6
endif
end program foo
