Correct tolerance for single-precision comparison.

esmf-org · Sep 8, 2023 · aab5278 · aab5278
1 parent 8d134db
commit aab5278
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Infrastructure/Array/tests/ESMF_ArrayCreateGetUTest.F90 b/src/Infrastructure/Array/tests/ESMF_ArrayCreateGetUTest.F90
@@ -2305,7 +2305,7 @@ program ESMF_ArrayCreateGetUTest
           * sin(real(j,ESMF_KIND_R4)) &
           * sin(real(k,ESMF_KIND_R4)) &
           * sin(real(l,ESMF_KIND_R4))
-        if (abs(diffR4) > 1.d-10) then
+        if (abs(diffR4) > 1.d-6) then
           dataCorrect=.false.
           write (msg,*) "diffR4=", diffR4
           call ESMF_LogWrite(msg, ESMF_LOGMSG_INFO, rc=rc)