@@ -168,7 +168,7 @@ module json_value_module
168
168
logical (LK) :: is_verbose = .false. ! ! if true, all exceptions are
169
169
! ! immediately printed to console.
170
170
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
172
172
! ! stopped immediately when an
173
173
! ! exception is raised.
174
174
@@ -6308,8 +6308,9 @@ end subroutine json_get_by_path_default
6308
6308
! are user-specified. To fully conform to the RFC 6901 standard,
6309
6309
! should probably set (via `initialize`):
6310
6310
!
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]
6313
6314
!
6314
6315
! ### Example
6315
6316
!
@@ -6454,7 +6455,7 @@ subroutine json_get_by_path_rfc6901(json, me, path, p, found)
6454
6455
end if
6455
6456
if (status_ok) then
6456
6457
! 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.
6458
6459
call string_to_integer(token,ival,status_ok)
6459
6460
end if
6460
6461
end if
@@ -6753,6 +6754,7 @@ subroutine json_get_by_path_jsonpath_bracket(json,me,path,p,found,create_it,was_
6753
6754
6754
6755
! verify that there are no spaces or other
6755
6756
! characters in the string:
6757
+ status_ok = .true.
6756
6758
do i= 1 ,len (token)
6757
6759
! It must only contain (0..9) characters
6758
6760
! (it must be unsigned)
@@ -9889,7 +9891,7 @@ subroutine parse_string(json, unit, str, string)
9889
9891
! start accumulating the hex string (should be the next 4 characters)
9890
9892
if (escape) then
9891
9893
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
9893
9895
else
9894
9896
escape = (c== backslash)
9895
9897
end if
0 commit comments