Commit 07bc4af3 authored by Keith Bennett's avatar Keith Bennett

Merge branch 'keith/errhandler' into 'master'

Don't free NULL error handler

See merge request SDF/SDF_FORTRAN!24
parents ebb227c7 66092424
......@@ -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