Skip to content

Commit 4a195dd

Browse files
committed
fix problem in mpi-f08-interfaces
with incorrect declaration of pragmas. for some reason this discomfits the Intel oneapi fortran compler. Signed-off-by: Howard Pritchard <hppritcha@gmail.com>
1 parent b4394f5 commit 4a195dd

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
@@ -175,12 +175,8 @@ interface MPI_Precv_init
175175
subroutine MPI_Precv_init_f08(buf,partitions,count,datatype,dest,tag,comm,request,ierror)
176176
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_COUNT_KIND
177177
implicit none
178-
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
179-
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
180-
!$PRAGMA IGNORE_TKR buf
181-
!DIR$ IGNORE_TKR buf
182-
!IBM* IGNORE_TKR buf
183-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
178+
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
179+
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
184180
INTEGER, INTENT(IN) :: partitions, dest, tag
185181
INTEGER(MPI_COUNT_KIND), INTENT(IN) :: count
186182
TYPE(MPI_Datatype), INTENT(IN) :: datatype
@@ -194,12 +190,8 @@ interface MPI_Psend_init
194190
subroutine MPI_Psend_init_f08(buf,partitions,count,datatype,dest,tag,comm,request,ierror)
195191
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_COUNT_KIND
196192
implicit none
197-
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
198-
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
199-
!$PRAGMA IGNORE_TKR buf
200-
!DIR$ IGNORE_TKR buf
201-
!IBM* IGNORE_TKR buf
202-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
193+
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf
194+
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf
203195
INTEGER, INTENT(IN) :: partitions, dest, tag
204196
INTEGER(MPI_COUNT_KIND), INTENT(IN) :: count
205197
TYPE(MPI_Datatype), INTENT(IN) :: datatype

0 commit comments

Comments
 (0)