1 ! This file created from test/mpi/f77/datatype/typesnamef.f with f77tof90
2 ! -*- Mode: Fortran; -*-
4 ! (C) 2003 by Argonne National Laboratory.
5 ! See COPYRIGHT in top-level directory.
9 character*(MPI_MAX_OBJECT_NAME) cname
11 integer ntype1, ntype2, errs, ierr
15 call MTest_Init( ierr )
17 call mpi_type_vector( 10, 1, 100, MPI_INTEGER, ntype1, ierr )
20 call mpi_type_get_name( ntype1, cname, rlen, ierr )
23 print *, ' Expected length 0, got ', rlen
26 do ln=MPI_MAX_OBJECT_NAME,1,-1
27 if (cname(ln:ln) .ne. ' ') then
35 print *, 'Datatype name is not all blank'
38 ! now add a name, then dup
39 call mpi_type_set_name( ntype1, 'a vector type', ierr )
40 call mpi_type_dup( ntype1, ntype2, ierr )
43 call mpi_type_get_name( ntype2, cname, rlen, ierr )
46 print *, ' (type2) Expected length 0, got ', rlen
49 do ln=MPI_MAX_OBJECT_NAME,1,-1
50 if (cname(ln:ln) .ne. ' ') then
58 print *, ' (type2) Datatype name is not all blank'
61 call mpi_type_free( ntype1, ierr )
62 call mpi_type_free( ntype2, ierr )
64 call MTest_Finalize( errs )
65 call MPI_Finalize( ierr )