Skip to content

Commit 2935f92

Browse files
ggouaillardetjtronge
authored andcommitted
fortran/use-mpi-f08: add CFI support for point-to-point communications
Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
1 parent 5bf3286 commit 2935f92

Some content is hidden

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

48 files changed

+1430
-23
lines changed

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

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@ subroutine MPI_Irsend_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_irsend_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

0 commit comments

Comments
 (0)