Commit 66092424 authored by Keith Bennett's avatar Keith Bennett

Don't free NULL error handler

parent ebb227c7
......@@ -769,7 +769,7 @@ CONTAINS
CALL initialise_file_handle(var, set_handler=.FALSE.)
IF (open_handles == 0) THEN
IF (open_handles == 0 .AND. errhandler_handle /= MPI_ERRHANDLER_NULL) THEN
CALL MPI_ERRHANDLER_FREE(errhandler_handle, errcode)
errhandler_handle = MPI_ERRHANDLER_NULL
ENDIF
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment