-C -*- Mode: Fortran; -*-
+C -*- Mode: Fortran; -*-
C
C (C) 2003 by Argonne National Laboratory.
C See COPYRIGHT in top-level directory.
integer ntype1, ntype2, errs, ierr
errs = 0
-
+
call MTest_Init( ierr )
call mpi_type_vector( 10, 1, 100, MPI_INTEGER, ntype1, ierr )
errs = errs + 1
print *, ' (type2) Datatype name is not all blank'
endif
-
+
call mpi_type_free( ntype1, ierr )
call mpi_type_free( ntype2, ierr )
-
+
call MTest_Finalize( errs )
call MPI_Finalize( ierr )