! This file created from test/mpi/f77/datatype/typesnamef.f with f77tof90
-! -*- Mode: Fortran; -*-
+! -*- Mode: Fortran; -*-
!
! (C) 2003 by Argonne National Laboratory.
! 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 )