Skip to content

Commit 6df6e1a

Browse files
ggouaillardetggouaillardet
committed
fortran/use-mpi-f08: Corrections to PMPI signatures of collectives
Corrected the signatures of the collectives used by the Fortran 2008 interface to state correct intent for inout arguments and use the ASYNCHRONOUS attribute in non-blocking collective calls. Signed-off-by: Gilles Gouaillardet <[email protected]> (cherry picked from commit f750c69)
1 parent a7cb425 commit 6df6e1a

34 files changed

+107
-76
lines changed

‎ompi/mpi/fortran/use-mpi-f08/mod/pmpi-f08-interfaces.F90‎

Lines changed: 36 additions & 35 deletions
Original file line numberDiff line numberDiff line change
@@ -965,8 +965,8 @@ subroutine PMPI_Iallgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recv
965965
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
966966
!DIR$ IGNORE_TKR sendbuf, recvbuf
967967
!IBM* IGNORE_TKR sendbuf, recvbuf
968-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
969-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
968+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
969+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
970970
INTEGER, INTENT(IN) :: sendcount, recvcount
971971
TYPE(MPI_Datatype), INTENT(IN) :: sendtype, recvtype
972972
TYPE(MPI_Comm), INTENT(IN) :: comm
@@ -1005,10 +1005,10 @@ subroutine PMPI_Iallgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,di
10051005
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
10061006
!DIR$ IGNORE_TKR sendbuf, recvbuf
10071007
!IBM* IGNORE_TKR sendbuf, recvbuf
1008-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1009-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1008+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1009+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
10101010
INTEGER, INTENT(IN) :: sendcount
1011-
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
1011+
INTEGER, INTENT(IN), ASYNCHRONOUS :: recvcounts(*), displs(*)
10121012
TYPE(MPI_Datatype), INTENT(IN) :: sendtype, recvtype
10131013
TYPE(MPI_Comm), INTENT(IN) :: comm
10141014
TYPE(MPI_Request), INTENT(OUT) :: request
@@ -1044,8 +1044,8 @@ subroutine PMPI_Iallreduce_f08(sendbuf,recvbuf,count,datatype,op,comm,request,ie
10441044
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
10451045
!DIR$ IGNORE_TKR sendbuf, recvbuf
10461046
!IBM* IGNORE_TKR sendbuf, recvbuf
1047-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1048-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1047+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1048+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
10491049
INTEGER, INTENT(IN) :: count
10501050
TYPE(MPI_Datatype), INTENT(IN) :: datatype
10511051
TYPE(MPI_Op), INTENT(IN) :: op
@@ -1086,7 +1086,8 @@ subroutine PMPI_Ialltoall_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvt
10861086
!IBM* IGNORE_TKR sendbuf, recvbuf
10871087
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
10881088
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1089-
INTEGER, INTENT(IN) :: sendcount, recvcount
1089+
INTEGER, INTENT(IN), ASYNCHRONOUS :: sendcount
1090+
INTEGER, ASYNCHRONOUS :: recvcount
10901091
TYPE(MPI_Datatype), INTENT(IN) :: sendtype, recvtype
10911092
TYPE(MPI_Comm), INTENT(IN) :: comm
10921093
TYPE(MPI_Request), INTENT(OUT) :: request
@@ -1123,9 +1124,9 @@ subroutine PMPI_Ialltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,recvc
11231124
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
11241125
!DIR$ IGNORE_TKR sendbuf, recvbuf
11251126
!IBM* IGNORE_TKR sendbuf, recvbuf
1126-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1127-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1128-
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
1127+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1128+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
1129+
INTEGER, INTENT(IN), ASYNCHRONOUS :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
11291130
TYPE(MPI_Datatype), INTENT(IN) :: sendtype, recvtype
11301131
TYPE(MPI_Comm), INTENT(IN) :: comm
11311132
TYPE(MPI_Request), INTENT(IN) :: request
@@ -1162,10 +1163,10 @@ subroutine PMPI_Ialltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,recvbuf,recv
11621163
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
11631164
!DIR$ IGNORE_TKR sendbuf, recvbuf
11641165
!IBM* IGNORE_TKR sendbuf, recvbuf
1165-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1166-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1167-
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
1168-
TYPE(MPI_Datatype), INTENT(IN) :: sendtypes(*), recvtypes(*)
1166+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1167+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
1168+
INTEGER, INTENT(IN), ASYNCHRONOUS :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
1169+
TYPE(MPI_Datatype), INTENT(IN), ASYNCHRONOUS :: sendtypes(*), recvtypes(*)
11691170
TYPE(MPI_Comm), INTENT(IN) :: comm
11701171
TYPE(MPI_Request), INTENT(IN) :: request
11711172
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
@@ -1217,7 +1218,7 @@ subroutine PMPI_Ibcast_f08(buffer,count,datatype,root,comm,request,ierror)
12171218
!$PRAGMA IGNORE_TKR buffer
12181219
!DIR$ IGNORE_TKR buffer
12191220
!IBM* IGNORE_TKR buffer
1220-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buffer
1221+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: buffer
12211222
INTEGER, INTENT(IN) :: count, root
12221223
TYPE(MPI_Datatype), INTENT(IN) :: datatype
12231224
TYPE(MPI_Comm), INTENT(IN) :: comm
@@ -1254,8 +1255,8 @@ subroutine PMPI_Iexscan_f08(sendbuf,recvbuf,count,datatype,op,comm,request,ierro
12541255
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
12551256
!DIR$ IGNORE_TKR sendbuf, recvbuf
12561257
!IBM* IGNORE_TKR sendbuf, recvbuf
1257-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1258-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1258+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1259+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
12591260
INTEGER, INTENT(IN) :: count
12601261
TYPE(MPI_Datatype), INTENT(IN) :: datatype
12611262
TYPE(MPI_Op), INTENT(IN) :: op
@@ -1294,8 +1295,8 @@ subroutine PMPI_Igather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtyp
12941295
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
12951296
!DIR$ IGNORE_TKR sendbuf, recvbuf
12961297
!IBM* IGNORE_TKR sendbuf, recvbuf
1297-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1298-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1298+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1299+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
12991300
INTEGER, INTENT(IN) :: sendcount, recvcount, root
13001301
TYPE(MPI_Datatype), INTENT(IN) :: sendtype, recvtype
13011302
TYPE(MPI_Comm), INTENT(IN) :: comm
@@ -1334,10 +1335,10 @@ subroutine PMPI_Igatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,displ
13341335
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
13351336
!DIR$ IGNORE_TKR sendbuf, recvbuf
13361337
!IBM* IGNORE_TKR sendbuf, recvbuf
1337-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1338-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1338+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1339+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
13391340
INTEGER, INTENT(IN) :: sendcount, root
1340-
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
1341+
INTEGER, INTENT(IN), ASYNCHRONOUS :: recvcounts(*), displs(*)
13411342
TYPE(MPI_Datatype), INTENT(IN) :: sendtype, recvtype
13421343
TYPE(MPI_Comm), INTENT(IN) :: comm
13431344
TYPE(MPI_Request), INTENT(OUT) :: request
@@ -1404,8 +1405,8 @@ subroutine PMPI_Ireduce_f08(sendbuf,recvbuf,count,datatype,op,root,comm,request,
14041405
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
14051406
!DIR$ IGNORE_TKR sendbuf, recvbuf
14061407
!IBM* IGNORE_TKR sendbuf, recvbuf
1407-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1408-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1408+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1409+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
14091410
INTEGER, INTENT(IN) :: count, root
14101411
TYPE(MPI_Datatype), INTENT(IN) :: datatype
14111412
TYPE(MPI_Op), INTENT(IN) :: op
@@ -1443,9 +1444,9 @@ subroutine PMPI_Reduce_scatter_f08(sendbuf,recvbuf,recvcounts,datatype,op,comm,
14431444
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
14441445
!DIR$ IGNORE_TKR sendbuf, recvbuf
14451446
!IBM* IGNORE_TKR sendbuf, recvbuf
1446-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1447-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1448-
INTEGER, INTENT(IN) :: recvcounts(*)
1447+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1448+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
1449+
INTEGER, INTENT(IN), ASYNCHRONOUS :: recvcounts(*)
14491450
TYPE(MPI_Datatype), INTENT(IN) :: datatype
14501451
TYPE(MPI_Op), INTENT(IN) :: op
14511452
TYPE(MPI_Comm), INTENT(IN) :: comm
@@ -1504,8 +1505,8 @@ subroutine PMPI_Ireduce_scatter_block_f08(sendbuf,recvbuf,recvcount,datatype,op,
15041505
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
15051506
!DIR$ IGNORE_TKR sendbuf, recvbuf
15061507
!IBM* IGNORE_TKR sendbuf, recvbuf
1507-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1508-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1508+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1509+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
15091510
INTEGER, INTENT(IN) :: recvcount
15101511
TYPE(MPI_Datatype), INTENT(IN) :: datatype
15111512
TYPE(MPI_Op), INTENT(IN) :: op
@@ -1583,8 +1584,8 @@ subroutine PMPI_Iscatter_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvty
15831584
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
15841585
!DIR$ IGNORE_TKR sendbuf, recvbuf
15851586
!IBM* IGNORE_TKR sendbuf, recvbuf
1586-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1587-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1587+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1588+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
15881589
INTEGER, INTENT(IN) :: sendcount, recvcount, root
15891590
TYPE(MPI_Datatype), INTENT(IN) :: sendtype, recvtype
15901591
TYPE(MPI_Comm), INTENT(IN) :: comm
@@ -1623,10 +1624,10 @@ subroutine PMPI_Iscatterv_f08(sendbuf,sendcounts,displs,sendtype,recvbuf,recvcou
16231624
!$PRAGMA IGNORE_TKR sendbuf, recvbuf
16241625
!DIR$ IGNORE_TKR sendbuf, recvbuf
16251626
!IBM* IGNORE_TKR sendbuf, recvbuf
1626-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
1627-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1627+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: sendbuf
1628+
OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: recvbuf
16281629
INTEGER, INTENT(IN) :: recvcount, root
1629-
INTEGER, INTENT(IN) :: sendcounts(*), displs(*)
1630+
INTEGER, INTENT(IN), ASYNCHRONOUS :: sendcounts(*), displs(*)
16301631
TYPE(MPI_Datatype), INTENT(IN) :: sendtype, recvtype
16311632
TYPE(MPI_Comm), INTENT(IN) :: comm
16321633
TYPE(MPI_Request), INTENT(OUT) :: request

‎ompi/mpi/fortran/use-mpi-f08/profile/pallgather_f08.F90‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,8 @@ subroutine PMPI_Allgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvt
1111
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
1212
use :: mpi_f08, only : ompi_allgather_f
1313
implicit none
14-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
14+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
15+
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1516
INTEGER, INTENT(IN) :: sendcount, recvcount
1617
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
1718
TYPE(MPI_Datatype), INTENT(IN) :: recvtype

‎ompi/mpi/fortran/use-mpi-f08/profile/pallgatherv_f08.F90‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,8 @@ subroutine PMPI_Allgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,&
1212
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
1313
use :: mpi_f08, only : ompi_allgatherv_f
1414
implicit none
15-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
15+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
16+
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1617
INTEGER, INTENT(IN) :: sendcount
1718
INTEGER, INTENT(IN) :: recvcounts(*), displs(*)
1819
TYPE(MPI_Datatype), INTENT(IN) :: sendtype

‎ompi/mpi/fortran/use-mpi-f08/profile/pallreduce_f08.F90‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,8 @@ subroutine PMPI_Allreduce_f08(sendbuf,recvbuf,count,datatype,op,comm,ierror)
1111
use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm
1212
use :: mpi_f08, only : ompi_allreduce_f
1313
implicit none
14-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
14+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
15+
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1516
INTEGER, INTENT(IN) :: count
1617
TYPE(MPI_Datatype), INTENT(IN) :: datatype
1718
TYPE(MPI_Op), INTENT(IN) :: op

‎ompi/mpi/fortran/use-mpi-f08/profile/palltoall_f08.F90‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,8 @@ subroutine PMPI_Alltoall_f08(sendbuf,sendcount,sendtype,recvbuf,&
1212
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
1313
use :: mpi_f08, only : ompi_alltoall_f
1414
implicit none
15-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
15+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
16+
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1617
INTEGER, INTENT(IN) :: sendcount, recvcount
1718
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
1819
TYPE(MPI_Datatype), INTENT(IN) :: recvtype

‎ompi/mpi/fortran/use-mpi-f08/profile/palltoallv_f08.F90‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,8 @@ subroutine PMPI_Alltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,&
1212
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
1313
use :: mpi_f08, only : ompi_alltoallv_f
1414
implicit none
15-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
15+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
16+
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1617
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
1718
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
1819
TYPE(MPI_Datatype), INTENT(IN) :: recvtype

‎ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,8 @@ subroutine PMPI_Alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,&
1212
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
1313
use :: mpi_f08, only : ompi_alltoallw_f
1414
implicit none
15-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
15+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
16+
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1617
INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*)
1718
TYPE(MPI_Datatype), INTENT(IN) :: sendtypes(*)
1819
TYPE(MPI_Datatype), INTENT(IN) :: recvtypes(*)

‎ompi/mpi/fortran/use-mpi-f08/profile/pbcast_f08.F90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@ subroutine PMPI_Bcast_f08(buffer,count,datatype,root,comm,ierror)
1111
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
1212
use :: mpi_f08, only : ompi_bcast_f
1313
implicit none
14-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer
14+
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buffer
1515
INTEGER, INTENT(IN) :: count, root
1616
TYPE(MPI_Datatype), INTENT(IN) :: datatype
1717
TYPE(MPI_Comm), INTENT(IN) :: comm

‎ompi/mpi/fortran/use-mpi-f08/profile/pexscan_f08.F90‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,8 @@ subroutine PMPI_Exscan_f08(sendbuf,recvbuf,count,datatype,op,comm,ierror)
1111
use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm
1212
use :: mpi_f08, only : ompi_exscan_f
1313
implicit none
14-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
14+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
15+
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1516
INTEGER, INTENT(IN) :: count
1617
TYPE(MPI_Datatype), INTENT(IN) :: datatype
1718
TYPE(MPI_Op), INTENT(IN) :: op

‎ompi/mpi/fortran/use-mpi-f08/profile/pgather_f08.F90‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,8 @@ subroutine PMPI_Gather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,&
1212
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
1313
use :: mpi_f08, only : ompi_gather_f
1414
implicit none
15-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf
15+
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
16+
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
1617
INTEGER, INTENT(IN) :: sendcount, recvcount, root
1718
TYPE(MPI_Datatype), INTENT(IN) :: sendtype
1819
TYPE(MPI_Datatype), INTENT(IN) :: recvtype

0 commit comments

Comments
 (0)