--- 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