teshsuite/smpi/mpich3-test/f77/datatype/typename3f.f

   1 C -*- Mode: Fortran; -*-
   2 C
   3 C
   4 C  (C) 2012 by Argonne National Laboratory.
   5 C      See COPYRIGHT in top-level directory.
   6 C
   7       program main
   8       implicit none
   9       include 'mpif.h'
  10       character*(MPI_MAX_OBJECT_NAME) name
  11       integer namelen
  12       integer ierr, errs
  13
  14       errs = 0
  15
  16       call mtest_init( ierr )
  17 C
  18 C Check each Fortran datatype, including the size-specific ones
  19 C See the C version (typename.c) for the relevant MPI sections
  20
  21       call MPI_Type_get_name( MPI_AINT, name, namelen, ierr )
  22       if (name(1:namelen) .ne. "MPI_AINT") then
  23            errs = errs + 1
  24            print *, "Expected MPI_AINT but got "//name(1:namelen)
  25       endif
  26
  27       call MPI_Type_get_name( MPI_OFFSET, name, namelen, ierr )
  28       if (name(1:namelen) .ne. "MPI_OFFSET") then
  29            errs = errs + 1
  30            print *, "Expected MPI_OFFSET but got "//name(1:namelen)
  31       endif
  32
  33       call MPI_Type_get_name( MPI_COUNT, name, namelen, ierr )
  34       if (name(1:namelen) .ne. "MPI_COUNT") then
  35            errs = errs + 1
  36            print *, "Expected MPI_COUNT but got "//name(1:namelen)
  37       endif
  38
  39       call mtest_finalize( errs )
  40       call MPI_Finalize( ierr )
  41       end