From ffcb7a0a24618a81f5d3e7b8ded4f5ceaceacea4 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Mon, 23 Sep 2019 09:31:14 -0700
Subject: [PATCH] aim of the calculation clearer

don't know if brackets are honored here
---
 src/prec.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/prec.f90 b/src/prec.f90
index 99032d8ef..f0475e9b6 100644
--- a/src/prec.f90
+++ b/src/prec.f90
@@ -254,7 +254,7 @@ subroutine unitTest
   r = r/minval(r)
   if(.not. all(dEq(r,r+PREAL_EPSILON)))    call quit(9000)
   if(dEq(r(1),r(2)) .and. dNeq(r(1),r(2))) call quit(9000)
-  if(.not. all(dEq0(r-r+PREAL_MIN)))       call quit(9000)
+  if(.not. all(dEq0(r-(r+PREAL_MIN))))     call quit(9000)
   
   realloc_lhs_test = [1,2]
   if (any(realloc_lhs_test/=[1,2])) call quit(9000)