more consistency

This commit is contained in:
Radovan Bast
2015-08-07 16:47:50 +02:00
parent 5987f3713d
commit 1bf3d3e355
10 changed files with 27 additions and 21 deletions

View File

@ -9,8 +9,8 @@ program example
call MPI_FINALIZE(ierr)
test_ok=(size==2.and.(rank==0.or.rank==1))
if (test_ok) then
if (rank == 0) print *,'Test OK!'
if (rank == 0) print *, 'PASSED'
else
stop "test fc_mpi failed!"
stop "FAILED"
endif
end program