--- openmpi-4.1.5/ompi/mpi/fortran/use-mpi-tkr/mpi_comm_spawn_multiple_f90.f90 2023-02-23 05:25:04.000000000 +0100
|
+++ openmpi-4.1.5/ompi/mpi/fortran/use-mpi-tkr/mpi_comm_spawn_multiple_f90.f90.new 2023-06-08 16:55:22.327132540 +0200
|
@@ -44,7 +44,7 @@
|
include 'mpif-config.h'
|
integer, intent(in) :: count
|
character(len=*), dimension(*), intent(in) :: array_of_commands
|
- double precision, intent(in) :: array_of_argv
|
+ character(len=*), dimension(count,*), intent(in) :: array_of_argv
|
integer, dimension(*), intent(in) :: array_of_maxprocs
|
integer, dimension(*), intent(in) :: array_of_info
|
integer, intent(in) :: root
|
--- openmpi-4.1.5/ompi/mpi/fortran/use-mpi-tkr/mpi_testall_f90.f90 2023-02-23 05:25:04.000000000 +0100
|
+++ openmpi-4.1.5/ompi/mpi/fortran/use-mpi-tkr/mpi_testall_f90.f90.new 2023-06-08 17:02:42.943552911 +0200
|
@@ -35,7 +35,7 @@
|
integer, intent(in) :: count
|
integer, dimension(count), intent(inout) :: array_of_requests
|
logical, intent(out) :: flag
|
- double precision, intent(out) :: array_of_statuses
|
+ integer, dimension(MPI_STATUS_SIZE, count), intent(out) :: array_of_statuses
|
integer, intent(out) :: ierror
|
|
call MPI_Testall(count, array_of_requests, flag, array_of_statuses, ierror)
|
--- openmpi-4.1.5/ompi/mpi/fortran/use-mpi-tkr/mpi_testsome_f90.f90 2023-02-23 05:25:04.000000000 +0100
|
+++ openmpi-4.1.5/ompi/mpi/fortran/use-mpi-tkr/mpi_testsome_f90.f90.new 2023-06-08 17:04:15.651839484 +0200
|
@@ -39,7 +39,7 @@
|
integer, dimension(incount), intent(inout) :: array_of_requests
|
integer, intent(out) :: outcount
|
integer, dimension(*), intent(out) :: array_of_indices
|
- double precision, intent(out) :: array_of_statuses
|
+ integer, dimension(MPI_STATUS_SIZE, incount), intent(out) :: array_of_statuses
|
integer, intent(out) :: ierror
|
|
call MPI_Testsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierror)
|
--- openmpi-4.1.5/ompi/mpi/fortran/use-mpi-tkr/mpi_waitsome_f90.f90 2023-02-23 05:25:04.000000000 +0100
|
+++ openmpi-4.1.5/ompi/mpi/fortran/use-mpi-tkr/mpi_waitsome_f90.f90.new 2023-06-08 17:05:31.162572128 +0200
|
@@ -39,7 +39,7 @@
|
integer, dimension(incount), intent(inout) :: array_of_requests
|
integer, intent(out) :: outcount
|
integer, dimension(*), intent(out) :: array_of_indices
|
- double precision, intent(out) :: array_of_statuses
|
+ integer, dimension(MPI_STATUS_SIZE, incount), intent(out) :: array_of_statuses
|
integer, intent(out) :: ierror
|
|
call MPI_Waitsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierror)
|
--- openmpi-4.1.5/ompi/mpi/fortran/use-mpi-tkr/mpi_waitall_f90.f90 2023-02-23 05:25:04.000000000 +0100
|
+++ openmpi-4.1.5/ompi/mpi/fortran/use-mpi-tkr/mpi_waitall_f90.f90.new 2023-06-08 17:06:31.148741342 +0200
|
@@ -32,7 +32,7 @@
|
include 'mpif-config.h'
|
integer, intent(in) :: count
|
integer, dimension(count), intent(inout) :: array_of_requests
|
- double precision, intent(out) :: array_of_statuses
|
+ integer, dimension(MPI_STATUS_SIZE, count), intent(out) :: array_of_statuses
|
integer, intent(out) :: ierror
|
call MPI_Waitall(count, array_of_requests, array_of_statuses, ierror)
|
end subroutine MPI_WaitallI
|