Merge pull request #8023 from abouteiller/bugfix/ob1_err_abort

errors_are_fatal_comm_handler takes a pointer to the error constant

ompi/mca/pml/ob1/pml_ob1.c

@@ -829,7 +829,7 @@ void mca_pml_ob1_error_handler(
     /* TODO: this error should return to the caller and invoke an error
      * handler from the MPI API call.
      * For now, it is fatal. */
-    ompi_mpi_errors_are_fatal_comm_handler(NULL, -1, btlinfo);
+    ompi_mpi_errors_are_fatal_comm_handler(NULL, NULL, btlinfo);
 }
 
 #if OPAL_ENABLE_FT_CR    == 0

ompi/mca/pml/ob1/pml_ob1_recvreq.h

@@ -181,7 +181,8 @@ recv_request_pml_complete(mca_pml_ob1_recv_request_t *recvreq)
             if( MPI_SUCCESS != recvreq->req_recv.req_base.req_ompi.req_status.MPI_ERROR ) {
                 /* An error after freeing the request MUST be fatal
                  * MPI3 ch3.7: MPI_REQUEST_FREE */
-                ompi_mpi_errors_are_fatal_comm_handler(NULL, MPI_ERR_REQUEST, "Recv error after request freed");
+                int err = MPI_ERR_REQUEST;
+                ompi_mpi_errors_are_fatal_comm_handler(NULL, &err, "Recv error after request freed");
             }
             MCA_PML_OB1_RECV_REQUEST_RETURN(recvreq);
         } else {

ompi/mca/pml/ob1/pml_ob1_sendreq.h

@@ -278,7 +278,8 @@ send_request_pml_complete(mca_pml_ob1_send_request_t *sendreq)
                 if( MPI_SUCCESS != sendreq->req_send.req_base.req_ompi.req_status.MPI_ERROR ) {
                     /* An error after freeing the request MUST be fatal
                      * MPI3 ch3.7: MPI_REQUEST_FREE */
-                    ompi_mpi_errors_are_fatal_comm_handler(NULL, MPI_ERR_REQUEST, "Send error after request freed");
+                    int err = MPI_ERR_REQUEST;
+                    ompi_mpi_errors_are_fatal_comm_handler(NULL, &err, "Send error after request freed");
                 }
             }
         } else {