integer :: ierr
echo " integer, intent(out) :: ierr"
echo "end subroutine ${proc}"
echo
done
echo
done
echo
call
,
,
ierr
,
&
,
integer(kind=MPI_ADDRESS_KIND)
integer
integer(kind=MPI_INTEGER${kind}_KIND)
, dimension(${dim})
integer
integer
integer
character
(len=STR_LEN)
UNSUPPORTED
UNSUPPORTED
, dimension(
ARRAY_LEN
D
,
)
integer(kind=MPI_ADDRESS_KIND)
integer(kind=MPI_OFFSET_KIND)
integer, dimension(MPI_STATUS_SIZE)
external
external
external
external
external
external
external
external
external
external
external
external
external
external
external
external
external
external
integer
UNSUPPORTED
UNSUPPORTED
integer(kind=MPI_INTEGER4_KIND), dimension(8) ::
1DI4
integer(kind=MPI_INTEGER4_KIND), dimension(2,4) ::
2DI4
integer(kind=MPI_INTEGER4_KIND), dimension(2,1,4) ::
3DI4
integer(kind=MPI_INTEGER4_KIND), dimension(2,1,1,4) ::
4DI4
integer(kind=MPI_INTEGER4_KIND), dimension(2,1,1,1,4) ::
5DI4
integer(kind=MPI_INTEGER4_KIND), dimension(2,1,1,1,1,4) ::
6DI4
integer(kind=MPI_INTEGER4_KIND), dimension(2,1,1,1,1,1,4) ::
7DI4
= MPI_AINT_VAL
= INT_VAL
= VOID_VAL
= INT_VAL
= INT_VAL
= CHAR_VAL
= UNSUPPORTED_VAL
= FLOAT_VAL
= REF_VAL
= MPI_AINT_VAL
= INT64_VAL
= STATUS_VAL
= USER_INT_VAL
= UNSUPPORTED_VAL
= UNSUPPORTED_VAL
D
!
! Fortran program to test F90 interface to C function
!
program main
use mpi
implicit none
include 'F90TestValues.h'
if (ierr /= 0) print *, "ERROR running
"
end program