Update cscs-checks/mch/src/openacc_cuda_mpi_cppstd.F90

Co-Authored-By: Andreas Jocksch <[email protected]>

Author: lucamar

cscs-checks/mch/src/openacc_cuda_mpi_cppstd.F90

@@ -76,7 +76,7 @@ program openacc_cuda_mpi_cppstd
       write (*,*) "Expected value sum(f1): ", EXPECTED_CUDA_SUM, "actual value:", sum(f1)
     else if (sum(f3) /= EXPECTED_CUDA_SUM) then
       write (*,*) "Result : FAIL"
-      write (*,*) "Expected value sum(f2): ", EXPECTED_CPP_STD_SUM, "actual value:", sum(f2)
+      write (*,*) "Expected value sum(f3): ", EXPECTED_CUDA_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)