This is a bug in the implementation in OpenMPI, with OpenMPI accidentally working.

[simgrid.git] / src / smpi / colls / reduce_scatter-ompi.c

diff --git a/src/smpi/colls/reduce_scatter-ompi.c b/src/smpi/colls/reduce_scatter-ompi.c
index 90978b88f36ab17c75458b0f123c3897a726e1dd..e10be9815ffced57c2cf1db3392959d8571abd78 100644 (file)
--- a/src/smpi/colls/reduce_scatter-ompi.c
+++ b/src/smpi/colls/reduce_scatter-ompi.c
@@ -367,7 +367,6 @@ smpi_coll_tuned_reduce_scatter_ompi_ring(void *sbuf, void *rbuf, int *rcounts,
     char *inbuf_free[2] = {NULL, NULL}, *inbuf[2] = {NULL, NULL};
     ptrdiff_t true_lb, true_extent, lb, extent, max_real_segsize;
     MPI_Request reqs[2] = {NULL, NULL};
-    size_t typelng;
 
     size = smpi_comm_size(comm);
     rank = smpi_comm_rank(comm);
@@ -406,7 +405,6 @@ smpi_coll_tuned_reduce_scatter_ompi_ring(void *sbuf, void *rbuf, int *rcounts,
     */
     smpi_datatype_extent(dtype, &lb, &extent);
     smpi_datatype_extent(dtype, &true_lb, &true_extent);
-    typelng = smpi_datatype_size(dtype);
 
     max_real_segsize = true_extent + (ptrdiff_t)(max_block_count - 1) * extent;