1
1

mpi_f08: fix MPI_BUFFER_DETACH binding

Этот коммит содержится в:
Jeff Squyres 2015-06-29 09:08:35 -07:00
родитель 91d3b5f555
Коммит fc69c0be24
4 изменённых файлов: 11 добавлений и 12 удалений

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

@ -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