Skip to content

Commit 35577b2

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 dd2c466 commit 35577b2

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
-194
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
@@ -372,10 +372,10 @@ subroutine ompi_probe_f(source,tag,comm,status,ierror) &
372372
end subroutine ompi_probe_f
373373

374374
subroutine ompi_recv_f(buf,count,datatype,source,tag,comm,status,ierror) &
375-
BIND(C, name="ompi_recv_f")
375+
BIND(C, name="ompi_recv_@OMPI_F08_BINDINGS_EXTENSION@")
376376
use :: mpi_f08_types, only : MPI_Status
377377
implicit none
378-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
378+
OMPI_F08_IGNORE_TKR_TYPE :: buf
379379
INTEGER, INTENT(IN) :: count, source, tag
380380
INTEGER, INTENT(IN) :: datatype
381381
INTEGER, INTENT(IN) :: comm
@@ -384,9 +384,9 @@ subroutine ompi_recv_f(buf,count,datatype,source,tag,comm,status,ierror) &
384384
end subroutine ompi_recv_f
385385

386386
subroutine ompi_recv_init_f(buf,count,datatype,source,tag,comm,request,ierror) &
387-
BIND(C, name="ompi_recv_init_f")
387+
BIND(C, name="ompi_recv_init_@OMPI_F08_BINDINGS_EXTENSION@")
388388
implicit none
389-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
389+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
390390
INTEGER, INTENT(IN) :: count, source, tag
391391
INTEGER, INTENT(IN) :: datatype
392392
INTEGER, INTENT(IN) :: comm
@@ -402,19 +402,19 @@ subroutine ompi_request_free_f(request,ierror) &
402402
end subroutine ompi_request_free_f
403403

404404
subroutine ompi_rsend_f(buf,count,datatype,dest,tag,comm,ierror) &
405-
BIND(C, name="ompi_rsend_f")
405+
BIND(C, name="ompi_rsend_@OMPI_F08_BINDINGS_EXTENSION@")
406406
implicit none
407-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
407+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
408408
INTEGER, INTENT(IN) :: count, dest, tag
409409
INTEGER, INTENT(IN) :: datatype
410410
INTEGER, INTENT(IN) :: comm
411411
INTEGER, INTENT(OUT) :: ierror
412412
end subroutine ompi_rsend_f
413413

414414
subroutine ompi_rsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
415-
BIND(C, name="ompi_rsend_init_f")
415+
BIND(C, name="ompi_rsend_init_@OMPI_F08_BINDINGS_EXTENSION@")
416416
implicit none
417-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
417+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
418418
INTEGER, INTENT(IN) :: count, dest, tag
419419
INTEGER, INTENT(IN) :: datatype
420420
INTEGER, INTENT(IN) :: comm
@@ -423,9 +423,9 @@ subroutine ompi_rsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
423423
end subroutine ompi_rsend_init_f
424424

425425
subroutine ompi_send_f(buf,count,datatype,dest,tag,comm,ierror) &
426-
BIND(C, name="ompi_send_f")
426+
BIND(C, name="ompi_send_@OMPI_F08_BINDINGS_EXTENSION@")
427427
implicit none
428-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
428+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
429429
INTEGER, INTENT(IN) :: count, dest, tag
430430
INTEGER, INTENT(IN) :: datatype
431431
INTEGER, INTENT(IN) :: comm
@@ -434,11 +434,11 @@ end subroutine ompi_send_f
434434

435435
subroutine ompi_sendrecv_f(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, &
436436
recvcount,recvtype,source,recvtag,comm,status,ierror) &
437-
BIND(C, name="ompi_sendrecv_f")
437+
BIND(C, name="ompi_sendrecv_@OMPI_F08_BINDINGS_EXTENSION@")
438438
use :: mpi_f08_types, only : MPI_Status
439439
implicit none
440-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
441-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
440+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
441+
OMPI_F08_IGNORE_TKR_TYPE :: recvbuf
442442
INTEGER, INTENT(IN) :: sendcount, dest, sendtag, recvcount, source, recvtag
443443
INTEGER, INTENT(IN) :: sendtype
444444
INTEGER, INTENT(IN) :: recvtype
@@ -449,10 +449,10 @@ end subroutine ompi_sendrecv_f
449449

450450
subroutine ompi_sendrecv_replace_f(buf,count,datatype,dest,sendtag,source, &
451451
recvtag,comm,status,ierror) &
452-
BIND(C, name="ompi_sendrecv_replace_f")
452+
BIND(C, name="ompi_sendrecv_replace_@OMPI_F08_BINDINGS_EXTENSION@")
453453
use :: mpi_f08_types, only : MPI_Status
454454
implicit none
455-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
455+
OMPI_F08_IGNORE_TKR_TYPE :: buf
456456
INTEGER, INTENT(IN) :: count, dest, sendtag, source, recvtag
457457
INTEGER, INTENT(IN) :: datatype
458458
INTEGER, INTENT(IN) :: comm
@@ -461,9 +461,9 @@ subroutine ompi_sendrecv_replace_f(buf,count,datatype,dest,sendtag,source, &
461461
end subroutine ompi_sendrecv_replace_f
462462

463463
subroutine ompi_send_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
464-
BIND(C, name="ompi_send_init_f")
464+
BIND(C, name="ompi_send_init_@OMPI_F08_BINDINGS_EXTENSION@")
465465
implicit none
466-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
466+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
467467
INTEGER, INTENT(IN) :: count, dest, tag
468468
INTEGER, INTENT(IN) :: datatype
469469
INTEGER, INTENT(IN) :: comm
@@ -472,19 +472,19 @@ subroutine ompi_send_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
472472
end subroutine ompi_send_init_f
473473

474474
subroutine ompi_ssend_f(buf,count,datatype,dest,tag,comm,ierror) &
475-
BIND(C, name="ompi_ssend_f")
475+
BIND(C, name="ompi_ssend_@OMPI_F08_BINDINGS_EXTENSION@")
476476
implicit none
477-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
477+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
478478
INTEGER, INTENT(IN) :: count, dest, tag
479479
INTEGER, INTENT(IN) :: datatype
480480
INTEGER, INTENT(IN) :: comm
481481
INTEGER, INTENT(OUT) :: ierror
482482
end subroutine ompi_ssend_f
483483

484484
subroutine ompi_ssend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
485-
BIND(C, name="ompi_ssend_init_f")
485+
BIND(C, name="ompi_ssend_init_@OMPI_F08_BINDINGS_EXTENSION@")
486486
implicit none
487-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
487+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
488488
INTEGER, INTENT(IN) :: count, dest, tag
489489
INTEGER, INTENT(IN) :: datatype
490490
INTEGER, INTENT(IN) :: comm
@@ -551,10 +551,10 @@ subroutine ompi_waitsome_f(incount,array_of_requests,outcount, &
551551
end subroutine ompi_waitsome_f
552552

553553
subroutine ompi_get_address_f(location,address,ierror) &
554-
BIND(C, name="ompi_get_address_f")
554+
BIND(C, name="ompi_get_address_@OMPI_F08_BINDINGS_EXTENSION@")
555555
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
556556
implicit none
557-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: location
557+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: location
558558
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: address
559559
INTEGER, INTENT(OUT) :: ierror
560560
end subroutine ompi_get_address_f
@@ -2376,9 +2376,9 @@ subroutine ompi_finalize_f(ierror) &
23762376
end subroutine ompi_finalize_f
23772377

23782378
subroutine ompi_free_mem_f(base,ierror) &
2379-
BIND(C, name="ompi_free_mem_f")
2379+
BIND(C, name="ompi_free_mem_@OMPI_F08_BINDINGS_EXTENSION@")
23802380
implicit none
2381-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
2381+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: base
23822382
INTEGER, INTENT(OUT) :: ierror
23832383
end subroutine ompi_free_mem_f
23842384

@@ -3730,9 +3730,9 @@ subroutine ompi_comm_split_type_f(comm,split_type,key,info,newcomm,ierror) &
37303730
end subroutine ompi_comm_split_type_f
37313731

37323732
subroutine ompi_f_sync_reg_f(buf) &
3733-
BIND(C, name="ompi_f_sync_reg_f")
3733+
BIND(C, name="ompi_f_sync_reg_@OMPI_F08_BINDINGS_EXTENSION@")
37343734
implicit none
3735-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
3735+
OMPI_F08_IGNORE_TKR_TYPE :: buf
37363736
end subroutine ompi_f_sync_reg_f
37373737

37383738
subroutine ompi_get_library_version_f(name,resultlen,ierror,name_len) &
@@ -3757,9 +3757,9 @@ subroutine ompi_mprobe_f(source,tag,comm,message,status,ierror) &
37573757
end subroutine ompi_mprobe_f
37583758

37593759
subroutine ompi_imrecv_f(buf,count,datatype,message,request,ierror) &
3760-
BIND(C, name="ompi_imrecv_f")
3760+
BIND(C, name="ompi_imrecv_@OMPI_F08_BINDINGS_EXTENSION@")
37613761
implicit none
3762-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
3762+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
37633763
INTEGER, INTENT(IN) :: count
37643764
INTEGER, INTENT(IN) :: datatype
37653765
INTEGER, INTENT(INOUT) :: message
@@ -3768,10 +3768,10 @@ subroutine ompi_imrecv_f(buf,count,datatype,message,request,ierror) &
37683768
end subroutine ompi_imrecv_f
37693769

37703770
subroutine ompi_mrecv_f(buf,count,datatype,message,status,ierror) &
3771-
BIND(C, name="ompi_mrecv_f")
3771+
BIND(C, name="ompi_mrecv_@OMPI_F08_BINDINGS_EXTENSION@")
37723772
use :: mpi_f08_types, only : MPI_Status
37733773
implicit none
3774-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
3774+
OMPI_F08_IGNORE_TKR_TYPE :: buf
37753775
INTEGER, INTENT(IN) :: count
37763776
INTEGER, INTENT(IN) :: datatype
37773777
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)