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 - 2022 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
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 , count , dest , tag
213
209
TYPE (MPI_Datatype ), INTENT (IN ) :: datatype
@@ -221,11 +217,7 @@ interface MPI_Psend_init
221
217
subroutine MPI_Psend_init_f08 (buf ,partitions ,count ,datatype ,dest ,tag ,comm ,request ,ierror )
222
218
use :: mpi_f08_types , only : MPI_Datatype , MPI_Comm , MPI_Request
223
219
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
229
221
OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
230
222
INTEGER , INTENT (IN ) :: partitions , count , dest , tag
231
223
TYPE (MPI_Datatype ), INTENT (IN ) :: datatype
0 commit comments