Merge pull request #109 from pbartholomew08/fix-test_sum_intox

Fix missing test logic for sum into x
xcompact3d · Jul 2, 2024 · 280d415 · 280d415
2 parents 3a75900 + ef168f9
commit 280d415
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/tests/test_sum_intox.f90 b/tests/test_sum_intox.f90
@@ -107,9 +107,7 @@ subroutine runtest(test, dir_from)
       call backend%sum_zintox(a, b)
     end if
 
-    if ((minval(a%data) /= 0) .or. (maxval(a%data) /= 0)) then
-      check_pass = .false.
-    end if
+    check_pass = .not. ((minval(a%data) /= 0) .or. (maxval(a%data) /= 0))
     call MPI_Allreduce(MPI_IN_PLACE, check_pass, 1, &
                        MPI_LOGICAL, MPI_LAND, MPI_COMM_WORLD, &
                        ierr)