Skip to content

Commit 0958174

Browse files
committed
fix problems with psend_init/precv_init f08
interfaces Signed-off-by: Howard Pritchard <howardp@lanl.gov>
1 parent 9124af8 commit 0958174

File tree

1 file changed

+1
-11
lines changed

1 file changed

+1
-11
lines changed

ompi/mpi/fortran/use-mpi-f08/mod/mpi-f08-interfaces.h.in

Lines changed: 1 addition & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -203,11 +203,6 @@ interface MPI_Precv_init
203203
subroutine MPI_Precv_init_f08(buf,partitions,count,datatype,dest,tag,comm,request,ierror)
204204
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_COUNT_KIND
205205
implicit none
206-
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
207-
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
208-
!$PRAGMA IGNORE_TKR buf
209-
!DIR$ IGNORE_TKR buf
210-
!IBM* IGNORE_TKR buf
211206
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
212207
INTEGER, INTENT(IN) :: partitions, dest, tag
213208
INTEGER(MPI_COUNT_KIND), INTENT(IN) :: count
@@ -222,11 +217,6 @@ interface MPI_Psend_init
222217
subroutine MPI_Psend_init_f08(buf,partitions,count,datatype,dest,tag,comm,request,ierror)
223218
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_COUNT_KIND
224219
implicit none
225-
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
226-
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
227-
!$PRAGMA IGNORE_TKR buf
228-
!DIR$ IGNORE_TKR buf
229-
!IBM* IGNORE_TKR buf
230220
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
231221
INTEGER, INTENT(IN) :: partitions, dest, tag
232222
INTEGER(MPI_COUNT_KIND), INTENT(IN) :: count
@@ -414,7 +404,7 @@ subroutine MPI_Send_init_f08@OMPI_F08_BINDINGS_TS_SUFFIX@(buf,count,datatype,des
414404
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
415405
implicit none
416406
@OMPI_F08_IGNORE_TKR_PREDECL@ buf
417-
@OMPI_F08_IGNORE_TKR_TYPE@ INTENT(IN) OMPI_ASYNCHRONOUS :: buf
407+
@OMPI_F08_IGNORE_TKR_TYPE@, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
418408
INTEGER, INTENT(IN) :: count, dest, tag
419409
TYPE(MPI_Datatype), INTENT(IN) :: datatype
420410
TYPE(MPI_Comm), INTENT(IN) :: comm

0 commit comments

Comments
 (0)