support_for_mpi_ierror_keyword.F90 Source File


Source Code

program main
   use mpi
   implicit none
   integer :: status
   call MPI_Init(ierror=status)
end program main