coll/base: fix ompi_coll_base_allgatherv_intra_basic_default()

ggouaillardet · ggouaillardet · commit b8a1ffb87ec6 · 2016-07-28T13:50:04.000+09:00
Fixes #1907
diff --git a/ompi/mca/coll/base/coll_base_allgatherv.c b/ompi/mca/coll/base/coll_base_allgatherv.c
@@ -635,7 +635,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
`@@ -635,7 +635,7 @@ ompi_coll_base_allgatherv_intra_basic_default(const void *sbuf, int scount,`
`635`	`635`	`}`
`636`	`636`
`637`	`637`	`err = comm->c_coll.coll_gatherv(send_buf,`
`638`		`- rcounts[rank], send_type,rbuf,`
	`638`	`+ scount, send_type,rbuf,`
`639`	`639`	`rcounts, disps, rdtype, 0,`
`640`	`640`	`comm, comm->c_coll.coll_gatherv_module);`
`641`	`641`	`if (MPI_SUCCESS != err) {`