Skip to content

Commit ca8da54

Browse files
committed
fortran/use-mpi-f08: fix pragma declarations
Replace old pragma declarations with the newr @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ syntax Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
1 parent 67620f4 commit ca8da54

File tree

1 file changed

+4
-12
lines changed

1 file changed

+4
-12
lines changed

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

Lines changed: 4 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -7,8 +7,8 @@
77
! of Tennessee Research Foundation. All rights
88
! reserved.
99
! Copyright (c) 2012 Inria. All rights reserved.
10-
! Copyright (c) 2015-2020 Research Organization for Information Science
11-
! and Technology (RIST). All rights reserved.
10+
! Copyright (c) 2015-2023 Research Organization for Information Science
11+
! and Technology (RIST). All rights reserved.
1212
! Copyright (c) 2017-2018 FUJITSU LIMITED. All rights reserved.
1313
! Copyright (c) 2021-2022 Triad National Security, LLC. All rights
1414
! reserved.
@@ -203,11 +203,7 @@ 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
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
206+
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
211207
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
212208
INTEGER, INTENT(IN) :: partitions, count, dest, tag
213209
TYPE(MPI_Datatype), INTENT(IN) :: datatype
@@ -221,11 +217,7 @@ interface MPI_Psend_init
221217
subroutine MPI_Psend_init_f08(buf,partitions,count,datatype,dest,tag,comm,request,ierror)
222218
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
223219
implicit none
224-
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
225-
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
226-
!$PRAGMA IGNORE_TKR buf
227-
!DIR$ IGNORE_TKR buf
228-
!IBM* IGNORE_TKR buf
220+
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
229221
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
230222
INTEGER, INTENT(IN) :: partitions, count, dest, tag
231223
TYPE(MPI_Datatype), INTENT(IN) :: datatype

0 commit comments

Comments
 (0)