coll/base: fix ompi_coll_base_allgatherv_intra_basic_default() with MPI_IN_PLACE

ggouaillardet · ggouaillardet · commit a0a999e63d6e · 2016-07-28T13:57:18.000+09:00
diff --git a/ompi/mca/coll/base/coll_base_allgatherv.c b/ompi/mca/coll/base/coll_base_allgatherv.c
@@ -629,6 +629,7 @@ ompi_coll_base_allgatherv_intra_basic_default(const void *sbuf, int scount,
         for (i = 0; i < rank; ++i) {
             send_buf += ((ptrdiff_t)rcounts[i] * extent);
         }
+        scount = rcounts[rank];
     } else {
         send_buf = (char*)sbuf;
         send_type = sdtype;

Original file line number	Diff line number	Diff line change
`@@ -629,6 +629,7 @@ ompi_coll_base_allgatherv_intra_basic_default(const void *sbuf, int scount,`
`629`	`629`	`for (i = 0; i < rank; ++i) {`
`630`	`630`	`send_buf += ((ptrdiff_t)rcounts[i] * extent);`
`631`	`631`	`}`
	`632`	`+ scount = rcounts[rank];`
`632`	`633`	`} else {`
`633`	`634`	`send_buf = (char*)sbuf;`
`634`	`635`	`send_type = sdtype;`