Skip to content

Commit 00cf02c

Browse files
committed
use-mpi-f08: fix missing ASYNCHRONOUS and missing INTENT
in order to comply with the MPI-3.1 standard Affected subroutines are: - MPI_Accumulate - MPI_Bsend_init - MPI_Comm_idup - MPI_Compare_and_swap - MPI_F_sync_reg - MPI_Fetch_and_op - MPI_File_iread* - MPI_File_iwrite* - MPI_File_read_all_begin - MPI_File_read_all_end - MPI_File_read_at_all_begin - MPI_File_read_at_all_end - MPI_File_read_ordered_begin - MPI_File_read_ordered_end - MPI_File_write_all_begin - MPI_File_write_all_end - MPI_File_write_at_all - MPI_File_write_at_all_begin - MPI_File_write_at_all_end - MPI_File_write_ordered_begin - MPI_File_write_ordered_end - MPI_Get - MPI_Get_accumulate - MPI_Get_address - MPI_Ialltoall - MPI_Ibsend - MPI_Improbe - MPI_Imrecv - MPI_Ineighbor_allgather - MPI_Ineighbor_allgatherv - MPI_Ineighbor_alltoall - MPI_Ineighbor_alltoallv - MPI_Ineighbor_alltoallw - MPI_Iprobe - MPI_Irecv - MPI_Irsend - MPI_Isend - MPI_Issend - MPI_Mprobe - MPI_Probe - MPI_Put - MPI_Raccumulate - MPI_Recv_init - MPI_Rget - MPI_Rget_accumulate - MPI_Rput - MPI_Rsend_init - MPI_Send_init - MPI_Ssend_init - MPI_Win_attach - MPI_Win_create - MPI_Win_detach - MPI_Win_get_info Signed-off-by: Gilles Gouaillardet <[email protected]>
1 parent b59272e commit 00cf02c

Some content is hidden

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

46 files changed

+136
-134
lines changed

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@ subroutine MPI_Bsend_init_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_bsend_init_f
1717
implicit none
18-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
18+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), 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/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 :: buffer
18+
OMPI_FORTRAN_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/comm_idup_f08.F90

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,14 +7,16 @@
77
! and Technology (RIST). All rights reserved.
88
! $COPYRIGHT$
99

10+
#include "ompi/mpi/fortran/configure-fortran-output.h"
11+
1012
#include "mpi-f08-rename.h"
1113

1214
subroutine MPI_Comm_idup_f08(comm,newcomm,request,ierror)
1315
use :: mpi_f08_types, only : MPI_Comm, MPI_Request
1416
use :: ompi_mpifh_bindings, only : ompi_comm_idup_f
1517
implicit none
1618
TYPE(MPI_Comm), INTENT(IN) :: comm
17-
TYPE(MPI_Comm), INTENT(OUT) :: newcomm
19+
TYPE(MPI_Comm), INTENT(OUT) OMPI_ASYNCHRONOUS :: newcomm
1820
TYPE(MPI_Request), INTENT(OUT) :: request
1921
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2022
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 :: buf
18+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS:: buf
1919

2020
call ompi_f_sync_reg_f(buf)
2121

ompi/mpi/fortran/use-mpi-f08/file_iread_all_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_iread_all_f08(fh,buf,count,datatype,request,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_iread_all_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
2020
INTEGER, INTENT(IN) :: count
2121
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2222
TYPE(MPI_Request), INTENT(OUT) :: request

ompi/mpi/fortran/use-mpi-f08/file_iread_at_all_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ subroutine MPI_File_iread_at_all_f08(fh,offset,buf,count,datatype,request,ierror
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
1919
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
2121
INTEGER, INTENT(IN) :: count
2222
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2323
TYPE(MPI_Request), INTENT(OUT) :: request

ompi/mpi/fortran/use-mpi-f08/file_iread_at_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ subroutine MPI_File_iread_at_f08(fh,offset,buf,count,datatype,request,ierror)
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
1919
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
2121
INTEGER, INTENT(IN) :: count
2222
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2323
TYPE(MPI_Request), INTENT(OUT) :: request

ompi/mpi/fortran/use-mpi-f08/file_iread_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_iread_f08(fh,buf,count,datatype,request,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_iread_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
2020
INTEGER, INTENT(IN) :: count
2121
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2222
TYPE(MPI_Request), INTENT(OUT) :: request

ompi/mpi/fortran/use-mpi-f08/file_iread_shared_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_iread_shared_f08(fh,buf,count,datatype,request,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_iread_shared_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
2020
INTEGER, INTENT(IN) :: count
2121
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2222
TYPE(MPI_Request), INTENT(OUT) :: request

ompi/mpi/fortran/use-mpi-f08/file_iwrite_all_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_iwrite_all_f08(fh,buf,count,datatype,request,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_iwrite_all_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
INTEGER, INTENT(IN) :: count
2121
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2222
TYPE(MPI_Request), INTENT(OUT) :: request

ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_all_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ subroutine MPI_File_iwrite_at_all_f08(fh,offset,buf,count,datatype,request,ierro
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
1919
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2121
INTEGER, INTENT(IN) :: count
2222
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2323
TYPE(MPI_Request), INTENT(OUT) :: request

ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ subroutine MPI_File_iwrite_at_f08(fh,offset,buf,count,datatype,request,ierror)
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
1919
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2121
INTEGER, INTENT(IN) :: count
2222
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2323
TYPE(MPI_Request), INTENT(OUT) :: request

ompi/mpi/fortran/use-mpi-f08/file_iwrite_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_iwrite_f08(fh,buf,count,datatype,request,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_iwrite_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
INTEGER, INTENT(IN) :: count
2121
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2222
TYPE(MPI_Request), INTENT(OUT) :: request

ompi/mpi/fortran/use-mpi-f08/file_iwrite_shared_f08.F90

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

ompi/mpi/fortran/use-mpi-f08/file_read_all_begin_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_read_all_begin_f08(fh,buf,count,datatype,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_read_all_begin_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
INTEGER, INTENT(IN) :: count
2121
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2222
INTEGER, OPTIONAL, INTENT(OUT) :: ierror

ompi/mpi/fortran/use-mpi-f08/file_read_all_end_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_read_all_end_f08(fh,buf,status,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_read_all_end_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
TYPE(MPI_Status), INTENT(OUT) :: status
2121
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2222
integer :: c_ierror

ompi/mpi/fortran/use-mpi-f08/file_read_at_all_begin_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ subroutine MPI_File_read_at_all_begin_f08(fh,offset,buf,count,datatype,ierror)
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
1919
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2121
INTEGER, INTENT(IN) :: count
2222
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2323
INTEGER, OPTIONAL, INTENT(OUT) :: ierror

ompi/mpi/fortran/use-mpi-f08/file_read_at_all_end_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_read_at_all_end_f08(fh,buf,status,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_read_at_all_end_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
TYPE(MPI_Status), INTENT(OUT) :: status
2121
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2222
integer :: c_ierror

ompi/mpi/fortran/use-mpi-f08/file_read_ordered_begin_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_read_ordered_begin_f08(fh,buf,count,datatype,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_read_ordered_begin_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
INTEGER, INTENT(IN) :: count
2121
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2222
INTEGER, OPTIONAL, INTENT(OUT) :: ierror

ompi/mpi/fortran/use-mpi-f08/file_read_ordered_end_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_read_ordered_end_f08(fh,buf,status,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_read_ordered_end_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
TYPE(MPI_Status), INTENT(OUT) :: status
2121
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2222
integer :: c_ierror

ompi/mpi/fortran/use-mpi-f08/file_write_all_begin_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_write_all_begin_f08(fh,buf,count,datatype,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_write_all_begin_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
INTEGER, INTENT(IN) :: count
2121
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2222
INTEGER, OPTIONAL, INTENT(OUT) :: ierror

ompi/mpi/fortran/use-mpi-f08/file_write_all_end_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_write_all_end_f08(fh,buf,status,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_write_all_end_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
TYPE(MPI_Status), INTENT(OUT) :: status
2121
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2222
integer :: c_ierror

ompi/mpi/fortran/use-mpi-f08/file_write_at_all_begin_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ subroutine MPI_File_write_at_all_begin_f08(fh,offset,buf,count,datatype,ierror)
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
1919
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2121
INTEGER, INTENT(IN) :: count
2222
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2323
INTEGER, OPTIONAL, INTENT(OUT) :: ierror

ompi/mpi/fortran/use-mpi-f08/file_write_at_all_end_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_write_at_all_end_f08(fh,buf,status,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_write_at_all_end_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
TYPE(MPI_Status), INTENT(OUT) :: status
2121
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2222
integer :: c_ierror

ompi/mpi/fortran/use-mpi-f08/file_write_ordered_begin_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_write_ordered_begin_f08(fh,buf,count,datatype,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_write_ordered_begin_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
INTEGER, INTENT(IN) :: count
2121
TYPE(MPI_Datatype), INTENT(IN) :: datatype
2222
INTEGER, OPTIONAL, INTENT(OUT) :: ierror

ompi/mpi/fortran/use-mpi-f08/file_write_ordered_end_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_File_write_ordered_end_f08(fh,buf,status,ierror)
1616
use :: ompi_mpifh_bindings, only : ompi_file_write_ordered_end_f
1717
implicit none
1818
TYPE(MPI_File), INTENT(IN) :: fh
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: buf
2020
TYPE(MPI_Status), INTENT(OUT) :: status
2121
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2222
integer :: c_ierror

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, INTENT(IN) :: location
18+
OMPI_FORTRAN_IGNORE_TKR_TYPE 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) :: buf
18+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), 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/improbe_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ subroutine MPI_Improbe_f08(source,tag,comm,flag,message,status,ierror)
1717
TYPE(MPI_Comm), INTENT(IN) :: comm
1818
LOGICAL, INTENT(OUT) :: flag
1919
TYPE(MPI_Message), INTENT(OUT) :: message
20-
TYPE(MPI_Status), INTENT(OUT) :: status
20+
TYPE(MPI_Status) :: status
2121
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2222
integer :: c_ierror
2323

ompi/mpi/fortran/use-mpi-f08/ineighbor_allgather_f08.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,8 +16,8 @@ subroutine MPI_Ineighbor_allgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvco
1616
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
1717
use :: ompi_mpifh_bindings, only : ompi_ineighbor_allgather_f
1818
implicit none
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: sendbuf
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: recvbuf
2121
INTEGER, INTENT(IN) :: sendcount, recvcount
2222
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
2323
TYPE(MPI_Datatype), INTENT(IN) :: recvtype

ompi/mpi/fortran/use-mpi-f08/ineighbor_allgatherv_f08.F90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -17,10 +17,10 @@ subroutine MPI_Ineighbor_allgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvc
1717
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
1818
use :: ompi_mpifh_bindings, only : ompi_ineighbor_allgatherv_f
1919
implicit none
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
21-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: sendbuf
21+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: recvbuf
2222
INTEGER, INTENT(IN) :: sendcount
23-
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
23+
INTEGER OMPI_ASYNCHRONOUS, INTENT(IN) :: recvcounts(*), displs(*)
2424
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
2525
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
2626
TYPE(MPI_Comm), INTENT(IN) :: comm

ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoall_f08.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -17,8 +17,8 @@ subroutine MPI_Ineighbor_alltoall_f08(sendbuf,sendcount,sendtype,recvbuf,&
1717
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
1818
use :: ompi_mpifh_bindings, only : ompi_ineighbor_alltoall_f
1919
implicit none
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
21-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
21+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
2222
INTEGER, INTENT(IN) :: sendcount, recvcount
2323
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
2424
TYPE(MPI_Datatype), INTENT(IN) :: recvtype

ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallv_f08.F90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -17,9 +17,9 @@ subroutine MPI_Ineighbor_alltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvb
1717
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
1818
use :: ompi_mpifh_bindings, only : ompi_ineighbor_alltoallv_f
1919
implicit none
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
21-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
22-
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: sendbuf
21+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: recvbuf
22+
INTEGER, INTENT(IN) OMPI_ASYNCHRONOUS :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
2323
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
2424
TYPE(MPI_Datatype), INTENT(IN) :: recvtype
2525
TYPE(MPI_Comm), INTENT(IN) :: comm

ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallw_f08.F90

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -16,12 +16,12 @@ subroutine MPI_Ineighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,&
1616
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_ADDRESS_KIND
1717
use :: ompi_mpifh_bindings, only : ompi_ineighbor_alltoallw_f
1818
implicit none
19-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
20-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
21-
INTEGER, INTENT(IN) :: sendcounts(*), recvcounts(*)
22-
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: sdispls(*), rdispls(*)
23-
TYPE(MPI_Datatype), INTENT(IN) :: sendtypes(*)
24-
TYPE(MPI_Datatype), INTENT(IN) :: recvtypes(*)
19+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS, INTENT(IN) :: sendbuf
20+
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: recvbuf
21+
INTEGER OMPI_ASYNCHRONOUS, INTENT(IN) :: sendcounts(*), recvcounts(*)
22+
INTEGER(MPI_ADDRESS_KIND) OMPI_ASYNCHRONOUS, INTENT(IN) :: sdispls(*), rdispls(*)
23+
TYPE(MPI_Datatype) OMPI_ASYNCHRONOUS, INTENT(IN) :: sendtypes(*)
24+
TYPE(MPI_Datatype) OMPI_ASYNCHRONOUS, INTENT(IN) :: recvtypes(*)
2525
TYPE(MPI_Comm), INTENT(IN) :: comm
2626
TYPE(MPI_Request), INTENT(OUT) :: request
2727
INTEGER, OPTIONAL, INTENT(OUT) :: ierror

ompi/mpi/fortran/use-mpi-f08/iprobe_f08.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subroutine MPI_Iprobe_f08(source,tag,comm,flag,status,ierror)
1616
INTEGER, INTENT(IN) :: source, tag
1717
TYPE(MPI_Comm), INTENT(IN) :: comm
1818
LOGICAL, INTENT(OUT) :: flag
19-
TYPE(MPI_Status), INTENT(OUT) :: status
19+
TYPE(MPI_Status) :: status
2020
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
2121
integer :: c_ierror
2222

@@ -29,7 +29,7 @@ subroutine PMPI_Iprobe(source, tag, comm, flag, status, ierror)
2929
integer, intent(in) :: tag
3030
integer, intent(in) :: comm
3131
logical, intent(out) :: flag
32-
TYPE(MPI_Status), intent(out) :: status
32+
TYPE(MPI_Status) :: status
3333
integer, intent(out) :: ierror
3434
end subroutine PMPI_Iprobe
3535
end interface

ompi/mpi/fortran/use-mpi-f08/issend_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@ subroutine MPI_Issend_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_issend_f
1717
implicit none
18-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
18+
OMPI_FORTRAN_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

0 commit comments

Comments
 (0)