request: Improve MPI_Request_free() error handling

If ompi_request_free() fails, use the ompi_errhandler_request_invoke()
machinery used in the wait/test routines. This will have the side-effect
of attempting to free the request a second time.

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

Author: dalcinl

ompi/mpi/c/request_free.c

@@ -57,6 +57,10 @@ int MPI_Request_free(MPI_Request *request)
     }
 
     rc = ompi_request_free(request);
+    if (OPAL_UNLIKELY(OMPI_SUCCESS != rc && MPI_REQUEST_NULL != *request)) {
+        (*request)->req_status.MPI_ERROR = rc;
+        return ompi_errhandler_request_invoke(1, request, FUNC_NAME);
+    }
     OMPI_ERRHANDLER_NOHANDLE_RETURN(rc, rc, FUNC_NAME);
 }