ulfm: Fix agree/iagree for intercommunicators

For intercommunicators, passing MPI_IN_PLACE to allreduce is invalid.

Signed-off-by: Lisandro Dalcin <[email protected]>

Author: dalcinl

ompi/mca/coll/base/coll_base_agree_noft.c

@@ -26,7 +26,8 @@ ompi_coll_base_agree_noft(void *contrib,
                          struct ompi_communicator_t* comm,
                          mca_coll_base_module_t *module)
 {
-    return comm->c_coll->coll_allreduce(MPI_IN_PLACE, contrib, dt_count, dt, op,
+    void *sendbuf = OMPI_COMM_IS_INTER(comm) ? contrib : MPI_IN_PLACE;
+    return comm->c_coll->coll_allreduce(sendbuf, contrib, dt_count, dt, op,
                                        comm, comm->c_coll->coll_allreduce_module);
 }
 
@@ -40,6 +41,7 @@ ompi_coll_base_iagree_noft(void *contrib,
                           ompi_request_t **request,
                           mca_coll_base_module_t *module)
 {
-    return comm->c_coll->coll_iallreduce(MPI_IN_PLACE, contrib, dt_count, dt, op,
+    void *sendbuf = OMPI_COMM_IS_INTER(comm) ? contrib : MPI_IN_PLACE;
+    return comm->c_coll->coll_iallreduce(sendbuf, contrib, dt_count, dt, op,
                                         comm, request, comm->c_coll->coll_iallreduce_module);
 }