1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
! This file created from f77/datatype/typename3f.f with f77tof90
!
! Copyright (C) by Argonne National Laboratory
! See COPYRIGHT in top-level directory
!
program main
use mpi
character*(MPI_MAX_OBJECT_NAME) name
integer namelen
integer ierr, errs
errs = 0
call mtest_init( ierr )
!
! Check each Fortran datatype, including the size-specific ones
! See the C version (typename.c) for the relevant MPI sections
call MPI_Type_get_name( MPI_AINT, name, namelen, ierr )
if (name(1:namelen) .ne. "MPI_AINT") then
errs = errs + 1
print *, "Expected MPI_AINT but got "//name(1:namelen)
endif
call MPI_Type_get_name( MPI_OFFSET, name, namelen, ierr )
if (name(1:namelen) .ne. "MPI_OFFSET") then
errs = errs + 1
print *, "Expected MPI_OFFSET but got "//name(1:namelen)
endif
call MPI_Type_get_name( MPI_COUNT, name, namelen, ierr )
if (name(1:namelen) .ne. "MPI_COUNT") then
errs = errs + 1
print *, "Expected MPI_COUNT but got "//name(1:namelen)
endif
call mtest_finalize( errs )
end
|
