Simplify error check in sum_intox test

xcompact3d · Jun 28, 2024 · ef168f9 · ef168f9
1 parent b2eb6ce
commit ef168f9
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/tests/test_sum_intox.f90 b/tests/test_sum_intox.f90
@@ -107,11 +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.
-    else
-      check_pass = .true.
-    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)