-C -*- Mode: Fortran; -*-
+C -*- Mode: Fortran; -*-
C
C (C) 2003 by Argonne National Laboratory.
C See COPYRIGHT in top-level directory.
errs = 0
call mtest_init( ierr )
-
+
C Test the predefined communicators
do ln=1,MPI_MAX_OBJECT_NAME
cname(ln:ln) = 'X'
endif
call MTestFreeComm( comm(i) )
enddo
-C
+C
call mtest_finalize( errs )
call mpi_finalize( ierr )
end