@@ -168,7 +168,7 @@ module json_value_module
168168 logical (LK) :: is_verbose = .false. ! ! if true, all exceptions are
169169 ! ! immediately printed to console.
170170
171- logical (LK) :: stop_on_error = .false. ! ! if true, then the program is
171+ logical (LK) :: stop_on_error = .false. ! ! if true, then the program is
172172 ! ! stopped immediately when an
173173 ! ! exception is raised.
174174
@@ -6308,8 +6308,9 @@ end subroutine json_get_by_path_default
63086308! are user-specified. To fully conform to the RFC 6901 standard,
63096309! should probably set (via `initialize`):
63106310!
6311- ! * `trailing_spaces_significant` = .true. [this is not the default setting]
6312- ! * `case_sensitive_keys` = .true. [this is the default setting]
6311+ ! * `case_sensitive_keys = .true.` [this is the default setting]
6312+ ! * `trailing_spaces_significant = .true.` [this is *not* the default setting]
6313+ ! * `allow_duplicate_keys = .false.` [this is *not* the default setting]
63136314!
63146315! ### Example
63156316!
@@ -6454,7 +6455,7 @@ subroutine json_get_by_path_rfc6901(json, me, path, p, found)
64546455 end if
64556456 if (status_ok) then
64566457 ! if we make it this far, it should be
6457- ! convertable to an integer, so do it.
6458+ ! convertible to an integer, so do it.
64586459 call string_to_integer(token,ival,status_ok)
64596460 end if
64606461 end if
@@ -6753,6 +6754,7 @@ subroutine json_get_by_path_jsonpath_bracket(json,me,path,p,found,create_it,was_
67536754
67546755 ! verify that there are no spaces or other
67556756 ! characters in the string:
6757+ status_ok = .true.
67566758 do i= 1 ,len (token)
67576759 ! It must only contain (0..9) characters
67586760 ! (it must be unsigned)
@@ -9889,7 +9891,7 @@ subroutine parse_string(json, unit, str, string)
98899891 ! start accumulating the hex string (should be the next 4 characters)
98909892 if (escape) then
98919893 escape = .false.
9892- is_hex = (c==' u' ) ! the next four characters are the hex string
9894+ is_hex = (c== CK_ ' u' ) ! the next four characters are the hex string
98939895 else
98949896 escape = (c== backslash)
98959897 end if
0 commit comments