1
1

mpi_f08: fix MPI_WIN_{ATTACH,DETACH} bindings

fixes INTENT from open-mpi/ompi@9600e2bc63

Thanks Jeff for pointing this !
Этот коммит содержится в:
Gilles Gouaillardet 2015-10-26 09:16:06 +09:00
родитель 4ac247b1da
Коммит 1105634ca1
2 изменённых файлов: 6 добавлений и 6 удалений

Просмотреть файл

@ -3261,7 +3261,7 @@ subroutine MPI_Win_attach_f08(win,base,size,ierror)
!IBM* IGNORE_TKR base
OMPI_FORTRAN_IGNORE_TKR_TYPE :: base
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size
TYPE(MPI_Win), INTENT(OUT) :: win
TYPE(MPI_Win), INTENT(IN) :: win
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine MPI_Win_attach_f08
end interface MPI_Win_attach
@ -3276,7 +3276,7 @@ subroutine MPI_Win_detach_f08(win,base,ierror)
!DIR$ IGNORE_TKR base
!IBM* IGNORE_TKR base
OMPI_FORTRAN_IGNORE_TKR_TYPE :: base
TYPE(MPI_Win), INTENT(OUT) :: win
TYPE(MPI_Win), INTENT(IN) :: win
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine MPI_Win_detach_f08
end interface MPI_Win_detach

Просмотреть файл

@ -7491,7 +7491,7 @@ subroutine MPI_Win_attach(win, base, size, ierror)
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
integer(kind=MPI_ADDRESS_KIND), intent(in) :: size
integer, intent(out) :: win
integer, intent(in) :: win
integer, intent(out) :: ierror
end subroutine MPI_Win_attach
@ -7504,7 +7504,7 @@ subroutine PMPI_Win_attach(win, base, size, ierror)
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
integer(kind=MPI_ADDRESS_KIND), intent(in) :: size
integer, intent(out) :: win
integer, intent(in) :: win
integer, intent(out) :: ierror
end subroutine PMPI_Win_attach
@ -7517,7 +7517,7 @@ subroutine MPI_Win_detach(win, base, ierror)
include 'mpif-config.h'
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
integer, intent(out) :: win
integer, intent(in) :: win
integer, intent(out) :: ierror
end subroutine MPI_Win_detach
@ -7529,7 +7529,7 @@ subroutine PMPI_Win_detach(win, base, ierror)
include 'mpif-config.h'
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base
integer, intent(out) :: win
integer, intent(in) :: win
integer, intent(out) :: ierror
end subroutine PMPI_Win_detach