Commit 81029711 authored by Simon Brass's avatar Simon Brass
Browse files

remove whitespace from mpi-bcast.f08

parent 46ab9c16
......@@ -35,12 +35,12 @@ program main
end if
print *, "Before: ", imsg
call MPI_bcast(imsg, 5, MPI_integer, 0, MPI_Comm_world, ierr)
if (ierr /= MPI_SUCCESS) then
print *, "MPI_bcast: ", ierr
end if
print *, "After: ", imsg
! --------------------------------------------------
......
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