Skip to content

Commit 0a69280

Browse files
committed
minor changes.
1 parent f0ef16a commit 0a69280

File tree

1 file changed

+7
-3
lines changed

1 file changed

+7
-3
lines changed

src/json_module.f90

Lines changed: 7 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -527,7 +527,11 @@ end subroutine array_callback_func
527527
public :: json_remove !remove from a JSON structure
528528
public :: json_remove_if_present !remove from a JSON structure (if it is present)
529529
public :: json_update !update a value in a JSON structure
530-
530+
531+
!
532+
! Note: the following global variables make this module non thread safe.
533+
!
534+
531535
!exception handling [private variables]
532536
logical(LK) :: is_verbose = .false. !if true, all exceptions are immediately printed to console
533537
logical(LK) :: exception_thrown = .false. !the error flag
@@ -537,7 +541,7 @@ end subroutine array_callback_func
537541
integer(IK) :: char_count = 0 !character position in the current line
538542
integer(IK) :: line_count = 1 !lines read counter
539543
integer(IK) :: pushed_index = 0
540-
character(kind=CK,len=10) :: pushed_char !JW : what is this magic number 10??
544+
character(kind=CK,len=10) :: pushed_char = '' !JW : what is this magic number 10??
541545

542546
contains
543547
!*****************************************************************************************
@@ -2922,7 +2926,7 @@ end subroutine json_value_print
29222926
! json_get_by_path
29232927
!
29242928
! USAGE
2925-
! call json_get(me,path,p,found)
2929+
! call json_get(me,path,p,found)
29262930
!
29272931
! DESCRIPTION
29282932
! Returns the json_value pointer given the path string.

0 commit comments

Comments
 (0)