add debug

Author: ggouaillardet

ompi/communicator/comm_request.c

@@ -125,6 +125,9 @@ static int ompi_comm_request_progress (void)
             while (request_item->subreq_count) {
                 ompi_request_t *subreq = request_item->subreqs[request_item->subreq_count-1];
                 if( REQUEST_COMPLETE(subreq) ) {
+                    if (OMPI_SUCCESS != subreq->req_status.MPI_ERROR) {
+                        fprintf(stderr, "ompi_comm_request_progress: subrequest completed with error %d\n", subreq->req_status.MPI_ERROR);
+                    }
                     ompi_request_free (&subreq);
                     request_item->subreq_count--;
                 } else {