Skip to content

Commit 513a617

Browse files
committed
fix maybe for brackets in get_path
1 parent 2232377 commit 513a617

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/json_value_module.F90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -7757,8 +7757,8 @@ subroutine json_get_path(json, p, path, found, use_alt_array_tokens, path_sep)
77577757
integer(IK) :: n_children !! number of children for parent
77587758
logical(LK) :: use_brackets !! to use '[]' characters for arrays
77597759
logical(LK) :: parent_is_root !! if the parent is the root
7760-
character(CK) :: array_start !! for `path_mode=1`, the character to start arrays
7761-
character(CK) :: array_end !! for `path_mode=1`, the character to end arrays
7760+
character(kind=CK,len=1) :: array_start !! for `path_mode=1`, the character to start arrays
7761+
character(kind=CK,len=1) :: array_end !! for `path_mode=1`, the character to end arrays
77627762
logical :: consecutive_arrays !! check for array of array case
77637763
integer(IK) :: parents_parent_var_type !! `var_type` for parent's parent
77647764

@@ -7955,7 +7955,7 @@ subroutine add_to_path(str,path_sep)
79557955
!! prepend the string to the path
79567956
implicit none
79577957
character(kind=CK,len=*),intent(in) :: str !! string to prepend to `path`
7958-
character(kind=CK,len=*),intent(in),optional :: path_sep
7958+
character(kind=CK,len=1),intent(in),optional :: path_sep
79597959
!! path separator (default is '.').
79607960
!! (ignored if `json%path_mode/=1`)
79617961

0 commit comments

Comments
 (0)