| use, intrinsic :: iso_fortran_env, only: stderr=>error_unit | |
| use mpi | |
| implicit none | |
| logical :: flag | |
| integer :: ier | |
| call MPI_Init(ier) | |
| if (ier /= 0) then | |
| write(stderr,*) 'Unable to initialize MPI', ier | |
| stop 1 | |
| endif | |
| call MPI_Initialized(flag, ier) | |
| if (ier /= 0) then | |
| write(stderr,*) 'Unable to check MPI initialization state: ', ier | |
| stop 1 | |
| endif | |
| call MPI_Finalize(ier) | |
| if (ier /= 0) then | |
| write(stderr,*) 'Unable to finalize MPI: ', ier | |
| stop 1 | |
| endif | |
| print *, "OK: Fortran MPI" | |
| end program |