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