https://gcc.gnu.org/g:5825d4a7a829e0b21e72633631390ff6021a6007

commit r17-5768-g5825d4a7a829e0b21e72633631390ff6021a6007
Author: Harald Anlauf <[email protected]>
Date:   Fri Oct 30 22:11:04 2026 +0100

    testsuite: Update testcase numerical threshold to work with fp-contraction
    
    With floating-point contraction, comparing inline generated code with
    the runtime library version needs a suitable threshold.
    
            PR fortran/127063
    
    gcc/testsuite/ChangeLog:
    
            * gfortran.dg/trigd_1.f90: Update threshold.

Diff:
---
 gcc/testsuite/gfortran.dg/trigd_1.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/testsuite/gfortran.dg/trigd_1.f90 
b/gcc/testsuite/gfortran.dg/trigd_1.f90
index 3e51bcba90a6..d3d1ac769ba6 100644
--- a/gcc/testsuite/gfortran.dg/trigd_1.f90
+++ b/gcc/testsuite/gfortran.dg/trigd_1.f90
@@ -75,7 +75,7 @@ subroutine pr121366_2
 
   if (abs (func_array(1)%f(y) - acosd(y)) > 1.e-14) stop 14
   if (abs (func_array(2)%f(y) - asind(y)) > 1.e-14) stop 15
-  if (abs (func_array(3)%f(y) - atand(y)) > 1.e-15) stop 16
+  if (abs (func_array(3)%f(y) - atand(y)) > 4.e-15) stop 16
 end
 
 subroutine pr121366_3

Reply via email to