From f3b5670dce993f80734ffd5484f356e38b42aab6 Mon Sep 17 00:00:00 2001
From: Jeff Squyres <jsquyres@cisco.com>
Date: Wed, 12 Mar 2014 14:27:43 +0000
Subject: [PATCH] Fix pragma argument names to match dummy argument names.
Issue found by Absoft MTT runs.
cmr=v1.7.5:ticket=trac:4372
This commit was SVN r31027.
The following Trac tickets were found above:
Ticket 4372 --> https://svn.open-mpi.org/trac/ompi/ticket/4372
---
ompi/mpi/fortran/base/mpi-f08-interfaces.F90 | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/ompi/mpi/fortran/base/mpi-f08-interfaces.F90 b/ompi/mpi/fortran/base/mpi-f08-interfaces.F90
index e6e4a2fb4d..7ab72384d8 100644
--- a/ompi/mpi/fortran/base/mpi-f08-interfaces.F90
+++ b/ompi/mpi/fortran/base/mpi-f08-interfaces.F90
@@ -3000,11 +3000,11 @@ subroutine MPI_Get_accumulate_f08(origin_addr,origin_count,origin_datatype,resul
target_count,target_datatype,op,win,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_ADDRESS_KIND
implicit none
- !DEC$ ATTRIBUTES NO_ARG_CHECK :: origin_addr,target_addr
- !GCC$ ATTRIBUTES NO_ARG_CHECK :: origin_addr,target_addr
- !$PRAGMA IGNORE_TKR origin_addr,target_addr
- !DIR$ IGNORE_TKR origin_addr,target_addr
- !IBM* IGNORE_TKR origin_addr,target_addr
+ !DEC$ ATTRIBUTES NO_ARG_CHECK :: origin_addr,result_addr
+ !GCC$ ATTRIBUTES NO_ARG_CHECK :: origin_addr,result_addr
+ !$PRAGMA IGNORE_TKR origin_addr,result_addr
+ !DIR$ IGNORE_TKR origin_addr,result_addr
+ !IBM* IGNORE_TKR origin_addr,result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE :: origin_addr
INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count
TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype
@@ -3024,11 +3024,11 @@ subroutine MPI_Rget_accumulate_f08(origin_addr,origin_count,origin_datatype,resu
target_count,target_datatype,op,win,request,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Request, MPI_Win, MPI_ADDRESS_KIND
implicit none
- !DEC$ ATTRIBUTES NO_ARG_CHECK :: origin_addr,target_addr
- !GCC$ ATTRIBUTES NO_ARG_CHECK :: origin_addr,target_addr
- !$PRAGMA IGNORE_TKR origin_addr,target_addr
- !DIR$ IGNORE_TKR origin_addr,target_addr
- !IBM* IGNORE_TKR origin_addr,target_addr
+ !DEC$ ATTRIBUTES NO_ARG_CHECK :: origin_addr,result_addr
+ !GCC$ ATTRIBUTES NO_ARG_CHECK :: origin_addr,result_addr
+ !$PRAGMA IGNORE_TKR origin_addr,result_addr
+ !DIR$ IGNORE_TKR origin_addr,result_addr
+ !IBM* IGNORE_TKR origin_addr,result_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE :: origin_addr
INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count
TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype