program mpimodcheck
  use mpi, only : MPI_ROOT, MPI_OFFSET
  integer,parameter:: a = MPI_ROOT
end program mpimodcheck