7
7
! of Tennessee Research Foundation . All rights
8
8
! reserved .
9
9
! 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 .
12
12
! Copyright (c ) 2017 - 2018 FUJITSU LIMITED . All rights reserved .
13
13
! Copyright (c ) 2021 - 2023 Triad National Security , LLC . All rights
14
14
! reserved .
@@ -203,11 +203,7 @@ interface MPI_Precv_init
203
203
subroutine MPI_Precv_init_f08 (buf ,partitions ,count ,datatype ,dest ,tag ,comm ,request ,ierror )
204
204
use :: mpi_f08_types , only : MPI_Datatype , MPI_Comm , MPI_Request , MPI_COUNT_KIND
205
205
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
211
207
OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
212
208
INTEGER , INTENT (IN ) :: partitions , dest , tag
213
209
INTEGER (MPI_COUNT_KIND ), INTENT (IN ) :: count
@@ -222,11 +218,7 @@ interface MPI_Psend_init
222
218
subroutine MPI_Psend_init_f08 (buf ,partitions ,count ,datatype ,dest ,tag ,comm ,request ,ierror )
223
219
use :: mpi_f08_types , only : MPI_Datatype , MPI_Comm , MPI_Request , MPI_COUNT_KIND
224
220
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
221
+ @OMPI_FORTRAN_IGNORE_TKR_PREDECL @ buf
230
222
OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
231
223
INTEGER , INTENT (IN ) :: partitions , dest , tag
232
224
INTEGER (MPI_COUNT_KIND ), INTENT (IN ) :: count
0 commit comments