Let only task 0 print

1c2e6185 · Andreas Marek · ea1580e5 · 1c2e6185
Commit 1c2e6185 authored Jul 07, 2017 by Andreas Marek
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

test/Fortran/test.F90 test/Fortran/test.F90 +2 -2

No files found.
--- a/test/Fortran/test.F90
+++ b/test/Fortran/test.F90
@@ -251,10 +251,10 @@ program test
     endif
     status = check_correctness(na, nev, as, z, ev, sc_desc, myid)
     if (status /= 0) then
-       print *, "Result incorrect!"
+       if (myid == 0) print *, "Result incorrect!"
       call exit(status)
     endif
-     print *, ""
+     if (myid == 0) print *, ""

 #ifdef TEST_ALL_KERNELS
     a(:,:) = as(:,:)