Commit 1c2e6185 authored by Andreas Marek's avatar Andreas Marek

Let only task 0 print

parent ea1580e5
......@@ -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(:,:)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment