1 C -*- Mode: Fortran; -*-
4 C (C) 2012 by Argonne National Laboratory.
5 C See COPYRIGHT in top-level directory.
10 character*(MPI_MAX_OBJECT_NAME) name
16 call mtest_init( ierr )
18 C Check each Fortran datatype, including the size-specific ones
19 C See the C version (typename.c) for the relevant MPI sections
21 call MPI_Type_get_name( MPI_AINT, name, namelen, ierr )
22 if (name(1:namelen) .ne. "MPI_AINT") then
24 print *, "Expected MPI_AINT but got "//name(1:namelen)
27 call MPI_Type_get_name( MPI_OFFSET, name, namelen, ierr )
28 if (name(1:namelen) .ne. "MPI_OFFSET") then
30 print *, "Expected MPI_OFFSET but got "//name(1:namelen)
33 call MPI_Type_get_name( MPI_COUNT, name, namelen, ierr )
34 if (name(1:namelen) .ne. "MPI_COUNT") then
36 print *, "Expected MPI_COUNT but got "//name(1:namelen)
39 call mtest_finalize( errs )
40 call MPI_Finalize( ierr )