From 48e0a7ad97d909bfe8deafa124608d56b770d2b8 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Mon, 23 Sep 2019 06:30:21 -0700
Subject: [PATCH] no floating point comparison for equality

---
 src/math.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/math.f90 b/src/math.f90
index 18ea9ba50..26e63388c 100644
--- a/src/math.f90
+++ b/src/math.f90
@@ -1481,7 +1481,7 @@ subroutine unitTest
   if(any(dNeq0(matmul(t99_2,t99)-math_identity2nd(9),tol=1.0e-9_pReal)) .or. e) &
     call IO_error(401,ext_msg='math_invert t99')
 
-  if(any(math_clip([4.0_pReal,9.0_pReal],5.0_pReal,6.5_pReal)/=[5.0_pReal,6.5_pReal])) &
+  if(any(dNeq(math_clip([4.0_pReal,9.0_pReal],5.0_pReal,6.5_pReal),[5.0_pReal,6.5_pReal]))) &
      call IO_error(401,ext_msg='math_clip')  
 
   if(math_factorial(10) /= 3628800) &