Skip to content

Commit 6b3ee03

Browse files
hppritchajtronge
authored andcommitted
Remove mpi-f08-rename.h
1 parent 8a912b0 commit 6b3ee03

File tree

7 files changed

+830
-812
lines changed

7 files changed

+830
-812
lines changed

ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -273,7 +273,7 @@ end subroutine ompi_isend_f
273273

274274
subroutine ompi_isendrecv_f(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, &
275275
recvcount,recvtype,source,recvtag,comm,request,ierror) &
276-
BIND(C, name="ompi_isendrecv_f")
276+
BIND(C, name="ompi_isendrecv_@OMPI_F08_BINDINGS_EXTENSION@")
277277
implicit none
278278
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
279279
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
@@ -287,7 +287,7 @@ end subroutine ompi_isendrecv_f
287287

288288
subroutine ompi_isendrecv_replace_f(buf,count,datatype,dest,sendtag,source, &
289289
recvtag,comm,request,ierror) &
290-
BIND(C, name="ompi_isendrecv_replace_f")
290+
BIND(C, name="ompi_isendrecv_replace_@OMPI_F08_BINDINGS_EXTENSION@")
291291
implicit none
292292
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
293293
INTEGER, INTENT(IN) :: count, dest, sendtag, source, recvtag

ompi/mpi/fortran/use-mpi-f08/mod/mpi-f08-interfaces.h.in

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -127,7 +127,7 @@ end subroutine MPI_Irsend_f08
127127
end interface MPI_Irsend
128128

129129
interface MPI_Isendrecv
130-
subroutine MPI_Isendrecv_f08(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, &
130+
subroutine MPI_Isendrecv_f08@OMPI_F08_BINDINGS_TS_SUFFIX@(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, &
131131
recvcount,recvtype,source,recvtag,comm,request,ierror)
132132
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
133133
implicit none
@@ -139,11 +139,11 @@ subroutine MPI_Isendrecv_f08(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, &
139139
TYPE(MPI_Comm), INTENT(IN) :: comm
140140
TYPE(MPI_Request), INTENT(OUT) :: request
141141
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
142-
end subroutine MPI_Isendrecv_f08
142+
end subroutine MPI_Isendrecv_f08@OMPI_F08_BINDINGS_TS_SUFFIX@
143143
end interface MPI_Isendrecv
144144

145145
interface MPI_Isendrecv_replace
146-
subroutine MPI_Isendrecv_replace_f08(buf,count,datatype,dest,sendtag,source,recvtag, &
146+
subroutine MPI_Isendrecv_replace_f08@OMPI_F08_BINDINGS_TS_SUFFIX@(buf,count,datatype,dest,sendtag,source,recvtag, &
147147
comm,request,ierror)
148148
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
149149
implicit none
@@ -154,7 +154,7 @@ subroutine MPI_Isendrecv_replace_f08(buf,count,datatype,dest,sendtag,source,recv
154154
TYPE(MPI_Comm), INTENT(IN) :: comm
155155
TYPE(MPI_Request), INTENT(OUT) :: request
156156
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
157-
end subroutine MPI_Isendrecv_replace_f08
157+
end subroutine MPI_Isendrecv_replace_f08@OMPI_F08_BINDINGS_TS_SUFFIX@
158158
end interface MPI_Isendrecv_replace
159159

160160
interface MPI_Issend

0 commit comments

Comments
 (0)