Correct MTL operations accessing status fields when it is invalid

Signed-off-by: Aurelien Bouteiller <[email protected]>
(cherry picked from commit 3797220)

Author: abouteiller

ompi/mca/mtl/ofi/mtl_ofi.h

@@ -6,7 +6,9 @@
  *                         reserved.
  * Copyright (c) 2018-2020 Amazon.com, Inc. or its affiliates. All rights
  *                         reserved.
- *
+ * Copyright (c) 2021      The University of Tennessee and The University
+ *                         of Tennessee Research Foundation.  All rights
+ *                         reserved.
  * $COPYRIGHT$
  *
  * Additional copyrights may follow
@@ -1086,7 +1088,7 @@ ompi_mtl_ofi_iprobe_generic(struct mca_mtl_base_module_t *mtl,
     *flag = ofi_req.match_state;
     if (1 == *flag) {
         if (MPI_STATUS_IGNORE != status) {
-            *status = ofi_req.status;
+            OMPI_COPY_STATUS(status, ofi_req.status, false);
         }
     }
 
@@ -1178,7 +1180,7 @@ ompi_mtl_ofi_improbe_generic(struct mca_mtl_base_module_t *mtl,
     *matched = ofi_req->match_state;
     if (1 == *matched) {
         if (MPI_STATUS_IGNORE != status) {
-            *status = ofi_req->status;
+            OMPI_COPY_STATUS(status, ofi_req->status, false);
         }
 
         (*message) = ompi_message_alloc();

ompi/mca/mtl/portals4/mtl_portals4_probe.c

@@ -2,7 +2,7 @@
  * Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
  *                         University Research and Technology
  *                         Corporation.  All rights reserved.
- * Copyright (c) 2004-2010 The University of Tennessee and The University
+ * Copyright (c) 2004-2021 The University of Tennessee and The University
  *                         of Tennessee Research Foundation.  All rights
  *                         reserved.
  * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
@@ -120,7 +120,9 @@ ompi_mtl_portals4_iprobe(struct mca_mtl_base_module_t* mtl,
 
     *flag = request.found_match;
     if (1 == *flag) {
-        *status = request.status;
+        if (MPI_STATUS_IGNORE != status) {
+            OMPI_COPY_STATUS(status, request.status, false);
+        }
     }
 
     return OMPI_SUCCESS;
@@ -198,7 +200,9 @@ ompi_mtl_portals4_improbe(struct mca_mtl_base_module_t *mtl,
 
     *matched = request.found_match;
     if (1 == *matched) {
-        *status = request.status;
+        if (MPI_STATUS_IGNORE != status) {
+            OMPI_COPY_STATUS(status, request.status, false);
+        }
 
         (*message) = ompi_message_alloc();
         if (NULL == (*message)) {