mpi_f08: fix MPI_WIN_{ATTACH,DETACH} bindings
fixes INTENT from open-mpi/ompi@9600e2bc63 Thanks Jeff for pointing this !
Этот коммит содержится в:
родитель
4ac247b1da
Коммит
1105634ca1
@ -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
|
||||
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user