ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

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 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

4
ompi/mpi/fortran/use-mpi-f08/mpi-f08-interfaces.F90
Просмотреть файл

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

8
ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in
Просмотреть файл

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