test_mpi.f90

      program hello
      use mpi_f08
      implicit none
      integer(kind=MPI_INTEGER_KIND) ierror
      call mpi_init(ierror)
      call mpi_finalize(ierror)
      end program