MPI_Sendreceive_replace data error with > 2k msg (RTC 155305)

wlepera · wlepera · commit a7c9c4aef35a · 2017-06-01T13:08:58.000-04:00
Signed-off-by: William LePera &lt;lepera@us.ibm.com&gt;
diff --git a/ompi/mpi/c/sendrecv_replace.c b/ompi/mpi/c/sendrecv_replace.c
@@ -12,6 +12,7 @@
  * Copyright (c) 2010-2012 Oracle and/or its affiliates.  All rights reserved.
  * Copyright (c) 2015      Research Organization for Information Science
  *                         and Technology (RIST). All rights reserved.
+ * Copyright (c) 2017      IBM Corporation.  All rights reserved.
  * $COPYRIGHT$
  *
  * Additional copyrights may follow
@@ -116,6 +117,7 @@ int MPI_Sendrecv_replace(void * buf, int count, MPI_Datatype datatype,
             rc = OMPI_ERR_OUT_OF_RESOURCE;
             goto cleanup_and_return;
         }
+        iov.iov_len = packed_size;
     }
     max_data = packed_size;
     iov_count = 1;

Original file line number	Diff line number	Diff line change
`@@ -12,6 +12,7 @@`
`12`	`12`	`* Copyright (c) 2010-2012 Oracle and/or its affiliates. All rights reserved.`
`13`	`13`	`* Copyright (c) 2015 Research Organization for Information Science`
`14`	`14`	`* and Technology (RIST). All rights reserved.`
	`15`	`+ * Copyright (c) 2017 IBM Corporation. All rights reserved.`
`15`	`16`	`* $COPYRIGHT$`
`16`	`17`	`*`
`17`	`18`	`* Additional copyrights may follow`
`@@ -116,6 +117,7 @@ int MPI_Sendrecv_replace(void * buf, int count, MPI_Datatype datatype,`
`116`	`117`	`rc = OMPI_ERR_OUT_OF_RESOURCE;`
`117`	`118`	`goto cleanup_and_return;`
`118`	`119`	`}`
	`120`	`+ iov.iov_len = packed_size;`
`119`	`121`	`}`
`120`	`122`	`max_data = packed_size;`
`121`	`123`	`iov_count = 1;`