Merge pull request #7158 from raffenet/bc-allgather

mpid/bc: Check errors from node roots allgather

Approved-by: Hui Zhou <hzhou321@anl.gov>

src/mpid/common/bc/mpidu_bc.c

@@ -106,8 +106,10 @@ int MPIDU_bc_allgather(MPIR_Comm * allgather_comm, void *bc, int bc_len, int sam
     /* a 64k memcpy is small (< 1ms), MPI_IN_PLACE not critical here */
     void *recv_buf = segment + local_size * recv_bc_len;
     if (rank == node_root) {
-        MPIR_Allgatherv_fallback(segment, local_size * recv_bc_len, MPI_BYTE, recv_buf,
-                                 recv_cnts, recv_offs, MPI_BYTE, allgather_comm, MPIR_ERR_NONE);
+        mpi_errno = MPIR_Allgatherv_fallback(segment, local_size * recv_bc_len, MPI_BYTE, recv_buf,
+                                             recv_cnts, recv_offs, MPI_BYTE, allgather_comm,
+                                             MPIR_ERR_NONE);
+        MPIR_ERR_CHECK(mpi_errno);
 
     }