Merge pull request #10456 from FlorentGermain-Bull/coll_han_fix_dynamic_allreduce

Coll han: fix allreduce dynamic calling internal han algo on sub_comm

Author: awlauria

ompi/mca/coll/han/coll_han_dynamic.c

@@ -632,7 +632,7 @@ mca_coll_han_allreduce_intra_dynamic(const void *sbuf,
          * They points to the collective to use, according to the dynamic rules
          * Selector's job is done, call the collective
          */
-        allreduce = mca_coll_han_allreduce_intra;
+        allreduce = sub_module->coll_allreduce;
     }
     return allreduce(sbuf, rbuf, count, dtype,
                      op, comm, sub_module);

ompi/mca/coll/han/coll_han_subcomms.c

@@ -116,7 +116,7 @@ int mca_coll_han_comm_create_new(struct ompi_communicator_t *comm,
     /*
      * This sub-communicator contains the ranks that share my node.
      */
-    opal_info_set(&comm_info, "ompi_comm_coll_preference", "^han");
+    opal_info_set(&comm_info, "ompi_comm_coll_preference", "han");
     opal_info_set(&comm_info, "ompi_comm_coll_han_topo_level", "INTRA_NODE");
     ompi_comm_split_type(comm, MPI_COMM_TYPE_SHARED, 0,
                          &comm_info, low_comm);