teshsuite/smpi/mpich3-test/f90/datatype/typename3f90.f90

   1 ! This file created from test/mpi/f77/datatype/typename3f.f with f77tof90
   2 ! -*- Mode: Fortran; -*-
   3 !
   4 !
   5 !  (C) 2012 by Argonne National Laboratory.
   6 !      See COPYRIGHT in top-level directory.
   7 !
   8       program main
   9       use mpi
  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 !
  18 ! Check each Fortran datatype, including the size-specific ones
  19 ! 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