https://gcc.gnu.org/g:07dec85762e472a18882505a22552dcf21dff583
commit r17-5724-g07dec85762e472a18882505a22552dcf21dff583 Author: Jerry DeLisle <[email protected]> Date: Wed Oct 28 20:07:05 2026 -0400 fortran: Fix test threshold to pass with -m32 PR fortran/127063 gcc/testsuite/ChangeLog: * gfortran.dg/trigd_1.f90: Fix test threshold and missing '}' in dg directive. Diff: --- gcc/testsuite/gfortran.dg/trigd_1.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/trigd_1.f90 b/gcc/testsuite/gfortran.dg/trigd_1.f90 index 9f5f4c305c57..3e51bcba90a6 100644 --- a/gcc/testsuite/gfortran.dg/trigd_1.f90 +++ b/gcc/testsuite/gfortran.dg/trigd_1.f90 @@ -1,5 +1,5 @@ ! { dg-do run } -! { dg-additional-options "-O2 -std=f2023 -fall-intrinsics" +! { dg-additional-options "-O2 -std=f2023 -fall-intrinsics" } ! ! PR fortran/121366 - degree trigonometric function and procedure pointers ! @@ -122,7 +122,7 @@ subroutine pr121366_4 func2_array(1)%f => datan2d - if (abs (func2_array(1)%f(x,y) - atan2d(x,y)) > 1.e-15) stop 31 + if (abs (func2_array(1)%f(x,y) - atan2d(x,y)) > 1.05e-15) stop 31 end program test
