mpi_f08: fix MPI_BUFFER_DETACH binding
Этот коммит содержится в:
родитель
91d3b5f555
Коммит
fc69c0be24
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2015 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -9,8 +9,9 @@
|
||||
|
||||
subroutine MPI_Buffer_detach_f08(buffer_addr,size,ierror)
|
||||
use :: mpi_f08, only : ompi_buffer_detach_f
|
||||
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer_addr
|
||||
TYPE(C_PTR), INTENT(OUT) :: buffer_addr
|
||||
INTEGER, INTENT(OUT) :: size
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
@ -191,8 +191,9 @@ end subroutine ompi_buffer_attach_f
|
||||
|
||||
subroutine ompi_buffer_detach_f(buffer_addr,size,ierror) &
|
||||
BIND(C, name="ompi_buffer_detach_f")
|
||||
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer_addr
|
||||
TYPE(C_PTR), INTENT(OUT) :: buffer_addr
|
||||
INTEGER, INTENT(OUT) :: size
|
||||
INTEGER, INTENT(OUT) :: ierror
|
||||
end subroutine ompi_buffer_detach_f
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2015 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2015 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2012 The University of Tennessee and The University
|
||||
@ -71,13 +71,9 @@ end interface MPI_Buffer_attach
|
||||
|
||||
interface MPI_Buffer_detach
|
||||
subroutine MPI_Buffer_detach_f08(buffer_addr,size,ierror)
|
||||
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
|
||||
implicit none
|
||||
!DEC$ ATTRIBUTES NO_ARG_CHECK :: 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 :: buffer_addr
|
||||
TYPE(C_PTR), INTENT(OUT) :: buffer_addr
|
||||
INTEGER, INTENT(OUT) :: size
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
end subroutine MPI_Buffer_detach_f08
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2015 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -8,9 +8,10 @@
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
subroutine PMPI_Buffer_detach_f08(buffer_addr,size,ierror)
|
||||
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
|
||||
use :: mpi_f08, only : ompi_buffer_detach_f
|
||||
implicit none
|
||||
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer_addr
|
||||
TYPE(C_PTR), INTENT(OUT) :: buffer_addr
|
||||
INTEGER, INTENT(OUT) :: size
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user