json_clear_exceptions Subroutine

  1. json_value_module.F90
  2. json_value_module
  3. json_clear_exceptions

private pure subroutine json_clear_exceptions(json)

Clear exceptions in the json_core.

Arguments

TypeIntentOptionalAttributesName
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