increase relative error tolerance for arctan tests

FluidNumerics · Nov 30, 2023 · 5a0a2da · 5a0a2da
1 parent 2ec4cbc
commit 5a0a2da
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/test/atan_r3fp32.f90 b/test/atan_r3fp32.f90
@@ -46,7 +46,7 @@ integer function atan_r3fp32() result(r)
 
   ! Evaluate the equation
   feval = f % evaluate(x)
-  if (maxval(abs(feval - fexact)) <= maxval(abs(fexact))*epsilon(1.0_real32)) then
+  if (maxval(abs(feval - fexact)) <= maxval(abs(fexact))*epsilon(1.0_real32)*10.0_real32) then
     r = 0
   else
     r = 1

diff --git a/test/atan_r3fp64.f90 b/test/atan_r3fp64.f90
@@ -46,7 +46,7 @@ integer function atan_r3fp64() result(r)
 
   ! Evaluate the equation
   feval = f % evaluate(x)
-  if (maxval(abs(feval - fexact)) <= maxval(abs(fexact))*epsilon(1.0_real64)) then
+  if (maxval(abs(feval - fexact)) <= maxval(abs(fexact))*epsilon(1.0_real64)*10.0_real32) then
     r = 0
   else
     r = 1