! This file created from test/mpi/f77/datatype/allctypesf.f with f77tof90
-! -*- Mode: Fortran; -*-
+! -*- Mode: Fortran; -*-
!
! (C) 2004 by Argonne National Laboratory.
! See COPYRIGHT in top-level directory.
!
program main
use mpi
- integer atype, ierr
+ integer ierr
!
call mtest_init(ierr)
call mpi_comm_set_errhandler( MPI_COMM_WORLD, MPI_ERRORS_RETURN, &
call checkdtype( MPI_C_LONG_DOUBLE_COMPLEX, &
& "MPI_C_LONG_DOUBLE_COMPLEX", ierr )
endif
-! address/offset types
+! address/offset types
call checkdtype( MPI_AINT, "MPI_AINT", ierr )
call checkdtype( MPI_OFFSET, "MPI_OFFSET", ierr )
endif
character *(*) name
integer ir, rlen
character *(MPI_MAX_OBJECT_NAME) outname
-!
+!
outname = ""
call MPI_TYPE_GET_NAME( intype, outname, rlen, ir )
if (ir .ne. MPI_SUCCESS) then
ierr = ierr + 1
endif
endif
-
+
return
end
!
character *(*) name, name2
integer ir, rlen
character *(MPI_MAX_OBJECT_NAME) outname
-!
+!
outname = ""
call MPI_TYPE_GET_NAME( intype, outname, rlen, ir )
if (ir .ne. MPI_SUCCESS) then
ierr = ierr + 1
endif
endif
-
+
return
end