Fix: Support 2D ranges array

Author: adit4443ya

src/mpi.f90

@@ -365,7 +365,7 @@ subroutine MPI_Group_range_incl_proc(group, n, ranks, newgroup, ierror)
         use iso_c_binding, only: c_int, c_ptr
         integer, intent(in) :: group
         integer, intent(in) :: n
-        integer, dimension(:), intent(in) :: ranks
+        integer, dimension(:,:), intent(in) :: ranks
         integer, intent(out) :: newgroup
         integer, optional, intent(out) :: ierror
         integer(kind=MPI_HANDLE_KIND) :: c_group, c_newgroup

tests/comm_create_1.f90

@@ -4,7 +4,7 @@ program minimal_mre_range
 
   integer :: ierr, rank, size
   integer :: group_world, group_range, new_comm
-  integer, dimension(3) :: range   ! 1D array to define a single range
+  integer, dimension(1,3) :: range   ! 1D array to define a single range
   integer :: i
 
   call MPI_INIT(ierr)
@@ -15,9 +15,9 @@ program minimal_mre_range
   call MPI_COMM_GROUP(MPI_COMM_WORLD, group_world, ierr)
 
   ! Define 1D range: start, end, stride
-  range(1) = 0         ! start
-  range(2) = size - 1  ! end
-  range(3) = 1         ! stride
+  range(1,1) = 0         ! start
+  range(1,2) = size - 1  ! end
+  range(1,3) = 1         ! stride
 
 
   ! Create a new group that includes all ranks