Skip to content

Commit 0f6dee7

Browse files
committed
some minor doc string cleanups and minor corrections.
1 parent 7b4cb99 commit 0f6dee7

File tree

2 files changed

+8
-6
lines changed

2 files changed

+8
-6
lines changed

build.sh

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@
3131
# --compiler : gnu or gfortran for gfortran, intel or ifort for intel compiler
3232
# A custom compiler may also be specified here, e.g. ftn
3333
#
34-
# --cflags : Enter any aditiol/custom compiler flags here and make sure they are
34+
# --cflags : Enter any additional/custom compiler flags here and make sure they are
3535
# properly quoted
3636
#
3737
# --help : Print a usage message and exit.

src/json_value_module.F90

Lines changed: 7 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)