fortran: Use C_PTR
for buffer_addr
It was changed to use `C_PTR` in only `mpi` in fc69c0be247. Signed-off-by: KAWASHIMA Takahiro <t-kawashima@jp.fujitsu.com>
Этот коммит содержится в:
родитель
d4fc404dc6
Коммит
0c3a534b32
@ -72,13 +72,9 @@ end interface PMPI_Buffer_attach
|
|||||||
|
|
||||||
interface PMPI_Buffer_detach
|
interface PMPI_Buffer_detach
|
||||||
subroutine PMPI_Buffer_detach_f08(buffer_addr,size,ierror)
|
subroutine PMPI_Buffer_detach_f08(buffer_addr,size,ierror)
|
||||||
|
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
|
||||||
implicit none
|
implicit none
|
||||||
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buffer_addr
|
TYPE(C_PTR), INTENT(OUT) :: buffer_addr
|
||||||
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buffer_addr
|
|
||||||
!$PRAGMA IGNORE_TKR buffer_addr
|
|
||||||
!DIR$ IGNORE_TKR buffer_addr
|
|
||||||
!IBM* IGNORE_TKR buffer_addr
|
|
||||||
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buffer_addr
|
|
||||||
INTEGER, INTENT(OUT) :: size
|
INTEGER, INTENT(OUT) :: size
|
||||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||||
end subroutine PMPI_Buffer_detach_f08
|
end subroutine PMPI_Buffer_detach_f08
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user