Fix: Float comparison in test

itpplasma · Jan 19, 2024 · 27c4799 · 27c4799
1 parent 24aed5c
commit 27c4799
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/tests/source/test_util.f90 b/tests/source/test_util.f90
@@ -1,6 +1,8 @@
 program test_interpolate
     implicit none
 
+    real(8), parameter :: TOL = 1.0d-12
+
     call test_arange
     call test_linspace
 
@@ -14,7 +16,7 @@ subroutine test_arange
         expected = (/ 0.0d0, 1.0d0, 2.0d0, 3.0d0, 4.0d0 /)
         call arange(0.0d0, 5.0d0, 1.0d0, actual)
 
-        if (any(expected /= actual)) error stop
+        if (maxval(abs(expected - actual)) > TOL) error stop
     end subroutine test_arange
 
     subroutine test_linspace
@@ -25,7 +27,7 @@ subroutine test_linspace
         expected = (/ 0.0d0, 1.0d0, 2.0d0, 3.0d0, 4.0d0 /)
         call linspace(0.0d0, 4.0d0, 5, actual)
 
-        if (any(expected /= actual)) error stop
+        if (maxval(abs(expected - actual)) > TOL) error stop
     end subroutine test_linspace
 
 end program test_interpolate