json_clear_exceptions Subroutine

private pure subroutine json_clear_exceptions(json)

Clear exceptions in the json_core.

Arguments

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

Contents

Source Code


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