json_clear_exceptions Subroutine

Jacob Williams
12/4/2013
6 statements
Source File

private pure subroutine json_clear_exceptions(json)

Clear exceptions in the json_core.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_core),	intent(inout)			::	json

Contents

Source Code

json_clear_exceptions

Source Code

    pure subroutine json_clear_exceptions(json)

    implicit none

    class(json_core),intent(inout)  :: json

    !clear the flag and message:
    json%exception_thrown = .false.
    if (allocated(json%err_message)) deallocate(json%err_message)

    end subroutine json_clear_exceptions