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 - 2023 Triad National Security , LLC . All rights
1414! reserved .
@@ -203,11 +203,7 @@ interface MPI_Precv_init
203203subroutine 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
206+ @OMPI_FORTRAN_IGNORE_TKR_PREDECL @ buf
211207 OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
212208 INTEGER , INTENT (IN ) :: partitions , dest , tag
213209 INTEGER (MPI_COUNT_KIND ), INTENT (IN ) :: count
@@ -222,11 +218,7 @@ interface MPI_Psend_init
222218subroutine MPI_Psend_init_f08 (buf ,partitions ,count ,datatype ,dest ,tag ,comm ,request ,ierror )
223219 use :: mpi_f08_types , only : MPI_Datatype , MPI_Comm , MPI_Request , MPI_COUNT_KIND
224220 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
230222 OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
231223 INTEGER , INTENT (IN ) :: partitions , dest , tag
232224 INTEGER (MPI_COUNT_KIND ), INTENT (IN ) :: count
0 commit comments