Skip to content

Commit 0aa6281

Browse files
ggouaillardethppritcha
ggouaillardet
authored and
hppritcha
committed
fortran/use-mpi-f08: add CFI support for point-to-point communications
Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
1 parent bfc2f20 commit 0aa6281

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

51 files changed

+1677
-193
lines changed

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

Lines changed: 47 additions & 47 deletions
Original file line numberDiff line numberDiff line change
@@ -170,19 +170,19 @@
170170
interface
171171

172172
subroutine ompi_bsend_f(buf,count,datatype,dest,tag,comm,ierror) &
173-
BIND(C, name="ompi_bsend_f")
173+
BIND(C, name="ompi_bsend_@OMPI_F08_BINDINGS_EXTENSION@")
174174
implicit none
175-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
175+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
176176
INTEGER, INTENT(IN) :: count, dest, tag
177177
INTEGER, INTENT(IN) :: datatype
178178
INTEGER, INTENT(IN) :: comm
179179
INTEGER, INTENT(OUT) :: ierror
180180
end subroutine ompi_bsend_f
181181

182182
subroutine ompi_bsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
183-
BIND(C, name="ompi_bsend_init_f")
183+
BIND(C, name="ompi_bsend_init_@OMPI_F08_BINDINGS_EXTENSION@")
184184
implicit none
185-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
185+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
186186
INTEGER, INTENT(IN) :: count, dest, tag
187187
INTEGER, INTENT(IN) :: datatype
188188
INTEGER, INTENT(IN) :: comm
@@ -191,9 +191,9 @@ subroutine ompi_bsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
191191
end subroutine ompi_bsend_init_f
192192

193193
subroutine ompi_buffer_attach_f(buffer,size,ierror) &
194-
BIND(C, name="ompi_buffer_attach_f")
194+
BIND(C, name="ompi_buffer_attach_@OMPI_F08_BINDINGS_EXTENSION@")
195195
implicit none
196-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buffer
196+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buffer
197197
INTEGER, INTENT(IN) :: size
198198
INTEGER, INTENT(OUT) :: ierror
199199
end subroutine ompi_buffer_attach_f
@@ -228,9 +228,9 @@ subroutine ompi_get_count_f(status,datatype,count,ierror) &
228228
end subroutine ompi_get_count_f
229229

230230
subroutine ompi_ibsend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
231-
BIND(C, name="ompi_ibsend_f")
231+
BIND(C, name="ompi_ibsend_@OMPI_F08_BINDINGS_EXTENSION@")
232232
implicit none
233-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
233+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
234234
INTEGER, INTENT(IN) :: count, dest, tag
235235
INTEGER, INTENT(IN) :: datatype
236236
INTEGER, INTENT(IN) :: comm
@@ -239,9 +239,9 @@ subroutine ompi_ibsend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
239239
end subroutine ompi_ibsend_f
240240

241241
subroutine ompi_irecv_f(buf,count,datatype,source,tag,comm,request,ierror) &
242-
BIND(C, name="ompi_irecv_f")
242+
BIND(C, name="ompi_irecv_@OMPI_F08_BINDINGS_EXTENSION@")
243243
implicit none
244-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
244+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
245245
INTEGER, INTENT(IN) :: count, source, tag
246246
INTEGER, INTENT(IN) :: datatype
247247
INTEGER, INTENT(IN) :: comm
@@ -250,9 +250,9 @@ subroutine ompi_irecv_f(buf,count,datatype,source,tag,comm,request,ierror) &
250250
end subroutine ompi_irecv_f
251251

252252
subroutine ompi_irsend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
253-
BIND(C, name="ompi_irsend_f")
253+
BIND(C, name="ompi_irsend_@OMPI_F08_BINDINGS_EXTENSION@")
254254
implicit none
255-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
255+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
256256
INTEGER, INTENT(IN) :: count, dest, tag
257257
INTEGER, INTENT(IN) :: datatype
258258
INTEGER, INTENT(IN) :: comm
@@ -261,9 +261,9 @@ subroutine ompi_irsend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
261261
end subroutine ompi_irsend_f
262262

263263
subroutine ompi_isend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
264-
BIND(C, name="ompi_isend_f")
264+
BIND(C, name="ompi_isend_@OMPI_F08_BINDINGS_EXTENSION@")
265265
implicit none
266-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
266+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
267267
INTEGER, INTENT(IN) :: count, dest, tag
268268
INTEGER, INTENT(IN) :: datatype
269269
INTEGER, INTENT(IN) :: comm
@@ -298,9 +298,9 @@ subroutine ompi_isendrecv_replace_f(buf,count,datatype,dest,sendtag,source, &
298298
end subroutine ompi_isendrecv_replace_f
299299

300300
subroutine ompi_issend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
301-
BIND(C, name="ompi_issend_f")
301+
BIND(C, name="ompi_issend_@OMPI_F08_BINDINGS_EXTENSION@")
302302
implicit none
303-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
303+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
304304
INTEGER, INTENT(IN) :: count, dest, tag
305305
INTEGER, INTENT(IN) :: datatype
306306
INTEGER, INTENT(IN) :: comm
@@ -368,10 +368,10 @@ subroutine ompi_probe_f(source,tag,comm,status,ierror) &
368368
end subroutine ompi_probe_f
369369

370370
subroutine ompi_recv_f(buf,count,datatype,source,tag,comm,status,ierror) &
371-
BIND(C, name="ompi_recv_f")
371+
BIND(C, name="ompi_recv_@OMPI_F08_BINDINGS_EXTENSION@")
372372
use :: mpi_f08_types, only : MPI_Status
373373
implicit none
374-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
374+
OMPI_F08_IGNORE_TKR_TYPE :: buf
375375
INTEGER, INTENT(IN) :: count, source, tag
376376
INTEGER, INTENT(IN) :: datatype
377377
INTEGER, INTENT(IN) :: comm
@@ -380,9 +380,9 @@ subroutine ompi_recv_f(buf,count,datatype,source,tag,comm,status,ierror) &
380380
end subroutine ompi_recv_f
381381

382382
subroutine ompi_recv_init_f(buf,count,datatype,source,tag,comm,request,ierror) &
383-
BIND(C, name="ompi_recv_init_f")
383+
BIND(C, name="ompi_recv_init_@OMPI_F08_BINDINGS_EXTENSION@")
384384
implicit none
385-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
385+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
386386
INTEGER, INTENT(IN) :: count, source, tag
387387
INTEGER, INTENT(IN) :: datatype
388388
INTEGER, INTENT(IN) :: comm
@@ -398,19 +398,19 @@ subroutine ompi_request_free_f(request,ierror) &
398398
end subroutine ompi_request_free_f
399399

400400
subroutine ompi_rsend_f(buf,count,datatype,dest,tag,comm,ierror) &
401-
BIND(C, name="ompi_rsend_f")
401+
BIND(C, name="ompi_rsend_@OMPI_F08_BINDINGS_EXTENSION@")
402402
implicit none
403-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
403+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
404404
INTEGER, INTENT(IN) :: count, dest, tag
405405
INTEGER, INTENT(IN) :: datatype
406406
INTEGER, INTENT(IN) :: comm
407407
INTEGER, INTENT(OUT) :: ierror
408408
end subroutine ompi_rsend_f
409409

410410
subroutine ompi_rsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
411-
BIND(C, name="ompi_rsend_init_f")
411+
BIND(C, name="ompi_rsend_init_@OMPI_F08_BINDINGS_EXTENSION@")
412412
implicit none
413-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
413+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
414414
INTEGER, INTENT(IN) :: count, dest, tag
415415
INTEGER, INTENT(IN) :: datatype
416416
INTEGER, INTENT(IN) :: comm
@@ -419,9 +419,9 @@ subroutine ompi_rsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
419419
end subroutine ompi_rsend_init_f
420420

421421
subroutine ompi_send_f(buf,count,datatype,dest,tag,comm,ierror) &
422-
BIND(C, name="ompi_send_f")
422+
BIND(C, name="ompi_send_@OMPI_F08_BINDINGS_EXTENSION@")
423423
implicit none
424-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
424+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
425425
INTEGER, INTENT(IN) :: count, dest, tag
426426
INTEGER, INTENT(IN) :: datatype
427427
INTEGER, INTENT(IN) :: comm
@@ -430,11 +430,11 @@ end subroutine ompi_send_f
430430

431431
subroutine ompi_sendrecv_f(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, &
432432
recvcount,recvtype,source,recvtag,comm,status,ierror) &
433-
BIND(C, name="ompi_sendrecv_f")
433+
BIND(C, name="ompi_sendrecv_@OMPI_F08_BINDINGS_EXTENSION@")
434434
use :: mpi_f08_types, only : MPI_Status
435435
implicit none
436-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
437-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
436+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
437+
OMPI_F08_IGNORE_TKR_TYPE :: recvbuf
438438
INTEGER, INTENT(IN) :: sendcount, dest, sendtag, recvcount, source, recvtag
439439
INTEGER, INTENT(IN) :: sendtype
440440
INTEGER, INTENT(IN) :: recvtype
@@ -445,10 +445,10 @@ end subroutine ompi_sendrecv_f
445445

446446
subroutine ompi_sendrecv_replace_f(buf,count,datatype,dest,sendtag,source, &
447447
recvtag,comm,status,ierror) &
448-
BIND(C, name="ompi_sendrecv_replace_f")
448+
BIND(C, name="ompi_sendrecv_replace_@OMPI_F08_BINDINGS_EXTENSION@")
449449
use :: mpi_f08_types, only : MPI_Status
450450
implicit none
451-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
451+
OMPI_F08_IGNORE_TKR_TYPE :: buf
452452
INTEGER, INTENT(IN) :: count, dest, sendtag, source, recvtag
453453
INTEGER, INTENT(IN) :: datatype
454454
INTEGER, INTENT(IN) :: comm
@@ -457,9 +457,9 @@ subroutine ompi_sendrecv_replace_f(buf,count,datatype,dest,sendtag,source, &
457457
end subroutine ompi_sendrecv_replace_f
458458

459459
subroutine ompi_send_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
460-
BIND(C, name="ompi_send_init_f")
460+
BIND(C, name="ompi_send_init_@OMPI_F08_BINDINGS_EXTENSION@")
461461
implicit none
462-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
462+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
463463
INTEGER, INTENT(IN) :: count, dest, tag
464464
INTEGER, INTENT(IN) :: datatype
465465
INTEGER, INTENT(IN) :: comm
@@ -468,19 +468,19 @@ subroutine ompi_send_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
468468
end subroutine ompi_send_init_f
469469

470470
subroutine ompi_ssend_f(buf,count,datatype,dest,tag,comm,ierror) &
471-
BIND(C, name="ompi_ssend_f")
471+
BIND(C, name="ompi_ssend_@OMPI_F08_BINDINGS_EXTENSION@")
472472
implicit none
473-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
473+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
474474
INTEGER, INTENT(IN) :: count, dest, tag
475475
INTEGER, INTENT(IN) :: datatype
476476
INTEGER, INTENT(IN) :: comm
477477
INTEGER, INTENT(OUT) :: ierror
478478
end subroutine ompi_ssend_f
479479

480480
subroutine ompi_ssend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
481-
BIND(C, name="ompi_ssend_init_f")
481+
BIND(C, name="ompi_ssend_init_@OMPI_F08_BINDINGS_EXTENSION@")
482482
implicit none
483-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
483+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
484484
INTEGER, INTENT(IN) :: count, dest, tag
485485
INTEGER, INTENT(IN) :: datatype
486486
INTEGER, INTENT(IN) :: comm
@@ -547,10 +547,10 @@ subroutine ompi_waitsome_f(incount,array_of_requests,outcount, &
547547
end subroutine ompi_waitsome_f
548548

549549
subroutine ompi_get_address_f(location,address,ierror) &
550-
BIND(C, name="ompi_get_address_f")
550+
BIND(C, name="ompi_get_address_@OMPI_F08_BINDINGS_EXTENSION@")
551551
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
552552
implicit none
553-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: location
553+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: location
554554
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: address
555555
INTEGER, INTENT(OUT) :: ierror
556556
end subroutine ompi_get_address_f
@@ -2372,9 +2372,9 @@ subroutine ompi_finalize_f(ierror) &
23722372
end subroutine ompi_finalize_f
23732373

23742374
subroutine ompi_free_mem_f(base,ierror) &
2375-
BIND(C, name="ompi_free_mem_f")
2375+
BIND(C, name="ompi_free_mem_@OMPI_F08_BINDINGS_EXTENSION@")
23762376
implicit none
2377-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
2377+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: base
23782378
INTEGER, INTENT(OUT) :: ierror
23792379
end subroutine ompi_free_mem_f
23802380

@@ -3719,9 +3719,9 @@ subroutine ompi_comm_split_type_f(comm,split_type,key,info,newcomm,ierror) &
37193719
end subroutine ompi_comm_split_type_f
37203720

37213721
subroutine ompi_f_sync_reg_f(buf) &
3722-
BIND(C, name="ompi_f_sync_reg_f")
3722+
BIND(C, name="ompi_f_sync_reg_@OMPI_F08_BINDINGS_EXTENSION@")
37233723
implicit none
3724-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
3724+
OMPI_F08_IGNORE_TKR_TYPE :: buf
37253725
end subroutine ompi_f_sync_reg_f
37263726

37273727
subroutine ompi_get_library_version_f(name,resultlen,ierror,name_len) &
@@ -3746,9 +3746,9 @@ subroutine ompi_mprobe_f(source,tag,comm,message,status,ierror) &
37463746
end subroutine ompi_mprobe_f
37473747

37483748
subroutine ompi_imrecv_f(buf,count,datatype,message,request,ierror) &
3749-
BIND(C, name="ompi_imrecv_f")
3749+
BIND(C, name="ompi_imrecv_@OMPI_F08_BINDINGS_EXTENSION@")
37503750
implicit none
3751-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
3751+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
37523752
INTEGER, INTENT(IN) :: count
37533753
INTEGER, INTENT(IN) :: datatype
37543754
INTEGER, INTENT(INOUT) :: message
@@ -3757,10 +3757,10 @@ subroutine ompi_imrecv_f(buf,count,datatype,message,request,ierror) &
37573757
end subroutine ompi_imrecv_f
37583758

37593759
subroutine ompi_mrecv_f(buf,count,datatype,message,status,ierror) &
3760-
BIND(C, name="ompi_mrecv_f")
3760+
BIND(C, name="ompi_mrecv_@OMPI_F08_BINDINGS_EXTENSION@")
37613761
use :: mpi_f08_types, only : MPI_Status
37623762
implicit none
3763-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
3763+
OMPI_F08_IGNORE_TKR_TYPE :: buf
37643764
INTEGER, INTENT(IN) :: count
37653765
INTEGER, INTENT(IN) :: datatype
37663766
INTEGER, INTENT(INOUT) :: message

‎ompi/mpi/fortran/use-mpi-f08/bsend_f08.F90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@ subroutine MPI_Bsend_f08(buf,count,datatype,dest,tag,comm,ierror)
1515
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
1616
use :: ompi_mpifh_bindings, only : ompi_bsend_f
1717
implicit none
18-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
18+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
1919
INTEGER, INTENT(IN) :: count, dest, tag
2020
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2121
TYPE(MPI_Comm), INTENT(IN) :: comm

‎ompi/mpi/fortran/use-mpi-f08/bsend_init_f08.F90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ subroutine MPI_Bsend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror)
1717
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
1818
use :: ompi_mpifh_bindings, only : ompi_bsend_init_f
1919
implicit none
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
20+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
2121
INTEGER, INTENT(IN) :: count, dest, tag
2222
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2323
TYPE(MPI_Comm), INTENT(IN) :: comm

‎ompi/mpi/fortran/use-mpi-f08/buffer_attach_f08.F90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@
1515
subroutine MPI_Buffer_attach_f08(buffer,size,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_buffer_attach_f
1717
implicit none
18-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS:: buffer
18+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buffer
1919
INTEGER, INTENT(IN) :: size
2020
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2121
integer :: c_ierror

‎ompi/mpi/fortran/use-mpi-f08/f_sync_reg_f08.F90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@
1515
subroutine MPI_F_sync_reg_f08(buf)
1616
use :: ompi_mpifh_bindings, only : ompi_f_sync_reg_f
1717
implicit none
18-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS:: buf
18+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
1919

2020
call ompi_f_sync_reg_f(buf)
2121

‎ompi/mpi/fortran/use-mpi-f08/free_mem_f08.F90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,7 @@
1212
subroutine MPI_Free_mem_f08(base,ierror)
1313
use :: ompi_mpifh_bindings, only : ompi_free_mem_f
1414
implicit none
15-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
15+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: base
1616
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
1717
integer :: c_ierror
1818

‎ompi/mpi/fortran/use-mpi-f08/get_address_f08.F90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@ subroutine MPI_Get_address_f08(location,address,ierror)
1515
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
1616
use :: ompi_mpifh_bindings, only : ompi_get_address_f
1717
implicit none
18-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: location
18+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: location
1919
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: address
2020
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2121
integer :: c_ierror

‎ompi/mpi/fortran/use-mpi-f08/ibsend_f08.F90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@ subroutine MPI_Ibsend_f08(buf,count,datatype,dest,tag,comm,request,ierror)
1515
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
1616
use :: ompi_mpifh_bindings, only : ompi_ibsend_f
1717
implicit none
18-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
18+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
1919
INTEGER, INTENT(IN) :: count, dest, tag
2020
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2121
TYPE(MPI_Comm), INTENT(IN) :: comm

‎ompi/mpi/fortran/use-mpi-f08/imrecv_f08.F90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@ subroutine MPI_Imrecv_f08(buf,count,datatype,message,request,ierror)
1515
use :: mpi_f08_types, only : MPI_Datatype, MPI_Message, MPI_Request
1616
use :: ompi_mpifh_bindings, only : ompi_imrecv_f
1717
implicit none
18-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
18+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
1919
INTEGER, INTENT(IN) :: count
2020
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2121
TYPE(MPI_Message), INTENT(INOUT) :: message

‎ompi/mpi/fortran/use-mpi-f08/irecv_f08.F90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@ subroutine MPI_Irecv_f08(buf,count,datatype,source,tag,comm,request,ierror)
1515
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
1616
use :: ompi_mpifh_bindings, only : ompi_irecv_f
1717
implicit none
18-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
18+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
1919
INTEGER, INTENT(IN) :: count, source, tag
2020
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2121
TYPE(MPI_Comm), INTENT(IN) :: comm

0 commit comments

Comments
 (0)