
program mpiModTest
  use mpi
  integer,parameter:: a = MPI_ROOT
end program mpiModTest
