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
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
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
221217subroutine 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