diff --git a/tests/test_sum_intox.f90 b/tests/test_sum_intox.f90 index fb56df64..a2257d94 100644 --- 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)