From 8c0fb18d6ccc3dcb5604d563f28cc9a0a6220d8d Mon Sep 17 00:00:00 2001 From: Edgar Gabriel Date: Tue, 13 Feb 2018 09:18:25 -0600 Subject: [PATCH] io/ompio: correctly reset the request after performing the final OBJ_RELEASE on the request, reset the user level variable to MPI_REQUEST_NULL. Otherwise the c_2_f translation step in the fortran interface fails. Fixes issue #4807 Signed-off-by: Edgar Gabriel (cherry picked from commit a3a734b6d2d5e3bc7a3679be2e8c91cd37926da9) --- ompi/mca/io/ompio/io_ompio_request.c | 1 + 1 file changed, 1 insertion(+) diff --git a/ompi/mca/io/ompio/io_ompio_request.c b/ompi/mca/io/ompio/io_ompio_request.c index 59271a346ba..a2fdb47ea87 100644 --- a/ompi/mca/io/ompio/io_ompio_request.c +++ b/ompi/mca/io/ompio/io_ompio_request.c @@ -34,6 +34,7 @@ static int mca_io_ompio_request_free ( struct ompi_request_t **req) opal_list_remove_item (&mca_io_ompio_pending_requests, &ompio_req->req_item); OBJ_RELEASE (*req); + *req = MPI_REQUEST_NULL; return OMPI_SUCCESS; }