diff --git a/cscs-checks/mch/src/openacc_cuda_mpi_cppstd.F90 b/cscs-checks/mch/src/openacc_cuda_mpi_cppstd.F90 index 4568b9f4f5..2e81680440 100644 --- a/cscs-checks/mch/src/openacc_cuda_mpi_cppstd.F90 +++ b/cscs-checks/mch/src/openacc_cuda_mpi_cppstd.F90 @@ -35,7 +35,6 @@ program openacc_cuda_mpi_cppstd !$acc end host_data !$acc end data - if(mpi_rank == 0) then ! Allocate and initialize arrays on the GPU @@ -75,9 +74,9 @@ program openacc_cuda_mpi_cppstd if (sum(f1) /= EXPECTED_CUDA_SUM) then write (*,*) "Result : FAIL" write (*,*) "Expected value sum(f1): ", EXPECTED_CUDA_SUM, "actual value:", sum(f1) - else if (sum(f3) /= EXPECTED_CUDA_SUM) then + else if (sum(f3) /= EXPECTED_CPP_STD_SUM) then write (*,*) "Result : FAIL" - write (*,*) "Expected value sum(f3): ", EXPECTED_CUDA_SUM, "actual value:", sum(f3) + write (*,*) "Expected value sum(f3): ", EXPECTED_CPP_STD_SUM, "actual value:", sum(f3) else if (data_sum(1) /= ref_val) then write (*,*) "Result : FAIL" write (*,*) "Expected value data_sum: ", ref_val, "actual value:", data_sum(1) @@ -93,7 +92,6 @@ program openacc_cuda_mpi_cppstd deallocate(f1) deallocate(f2) deallocate(f3) - write (*,*) "Result: OK" end if call MPI_Finalize(ierr);