
program mpiModTest
#include <mpif.h>
  integer,parameter:: a = MPI_ROOT
end program mpiModTest
