From 5a0a2da82395a21678d56d9e41413873560b45ef Mon Sep 17 00:00:00 2001 From: Joe Date: Thu, 30 Nov 2023 12:07:24 -0500 Subject: [PATCH] increase relative error tolerance for arctan tests --- test/atan_r3fp32.f90 | 2 +- test/atan_r3fp64.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/test/atan_r3fp32.f90 b/test/atan_r3fp32.f90 index 7ada63f..7a84f79 100644 --- 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 index 1af50fb..bc5585a 100644 --- 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