1
1

MPI3 (unchanged in 4) says that errors after MPI_REQUEST_FREE are FATAL

Signed-off-by: Aurelien Bouteiller <bouteill@icl.utk.edu>
Этот коммит содержится в:
Aurelien Bouteiller 2020-07-28 10:57:14 -04:00
родитель bec7dfc1b1
Коммит ee149fcfcb
Не найден ключ, соответствующий данной подписи
Идентификатор ключа GPG: 08F60797C5941DB2
2 изменённых файлов: 6 добавлений и 2 удалений

Просмотреть файл

@ -179,7 +179,9 @@ recv_request_pml_complete(mca_pml_ob1_recv_request_t *recvreq)
if(true == recvreq->req_recv.req_base.req_free_called) {
if( MPI_SUCCESS != recvreq->req_recv.req_base.req_ompi.req_status.MPI_ERROR ) {
OMPI_ERRHANDLER_NOHANDLE_INVOKE(MPI_ERR_REQUEST, "Recv error after request freed.");
/* 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");
}
MCA_PML_OB1_RECV_REQUEST_RETURN(recvreq);
} else {

Просмотреть файл

@ -276,7 +276,9 @@ send_request_pml_complete(mca_pml_ob1_send_request_t *sendreq)
MCA_PML_OB1_SEND_REQUEST_MPI_COMPLETE(sendreq, true);
} else {
if( MPI_SUCCESS != sendreq->req_send.req_base.req_ompi.req_status.MPI_ERROR ) {
OMPI_ERRHANDLER_NOHANDLE_INVOKE(MPI_ERR_REQUEST, "Send error after request freed");
/* 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");
}
}
} else {