mtl/ofi: Fix error handling.

(cherry-picked from open-mpi/ompi@bd47062)

Author: yburette

ompi/mca/mtl/ofi/mtl_ofi.h

@@ -263,6 +263,7 @@ ompi_mtl_ofi_send_start(struct mca_mtl_base_module_t *mtl,
             opal_output_verbose(1, ompi_mtl_base_framework.framework_output,
                                 "%s:%d: fi_trecv failed: %s(%zd)",
                                 __FILE__, __LINE__, fi_strerror(-ret), ret);
+            free(ack_req);
             return ompi_mtl_ofi_get_error(ret);
         }
     } else {
@@ -281,6 +282,10 @@ ompi_mtl_ofi_send_start(struct mca_mtl_base_module_t *mtl,
             opal_output_verbose(1, ompi_mtl_base_framework.framework_output,
                                 "%s:%d: fi_tinject failed: %s(%zd)",
                                 __FILE__, __LINE__, fi_strerror(-ret), ret);
+            if (ack_req) {
+                fi_cancel((fid_t)ompi_mtl_ofi.ep, &ack_req->ctx);
+                free(ack_req);
+            }
             return ompi_mtl_ofi_get_error(ret);
         }