coll/base: fix ompi_coll_base_allgatherv_intra_basic_default()

ggouaillardet · ggouaillardet · commit 0beee26724a8 · 2016-07-28T13:58:07.000+09:00
Fixes open-mpi/ompi#1907 (cherry picked from commit open-mpi/ompi@b8a1ffb)
diff --git a/ompi/mca/coll/base/coll_base_allgatherv.c b/ompi/mca/coll/base/coll_base_allgatherv.c
@@ -631,7 +631,7 @@ ompi_coll_base_allgatherv_intra_basic_default(const void *sbuf, int scount,
     }
 
     err = comm->c_coll.coll_gatherv(send_buf,
-                                    rcounts[rank], send_type,rbuf,
+                                    scount, send_type,rbuf,
                                     rcounts, disps, rdtype, 0,
                                     comm, comm->c_coll.coll_gatherv_module);
     if (MPI_SUCCESS != err) {

Original file line number	Diff line number	Diff line change
`@@ -631,7 +631,7 @@ ompi_coll_base_allgatherv_intra_basic_default(const void *sbuf, int scount,`
`631`	`631`	`}`
`632`	`632`
`633`	`633`	`err = comm->c_coll.coll_gatherv(send_buf,`
`634`		`- rcounts[rank], send_type,rbuf,`
	`634`	`+ scount, send_type,rbuf,`
`635`	`635`	`rcounts, disps, rdtype, 0,`
`636`	`636`	`comm, comm->c_coll.coll_gatherv_module);`
`637`	`637`	`if (MPI_SUCCESS != err) {`