fixed some logical kinds.

also added exception check in is_child_of

Author: jacobwilliams

src/json_value_module.F90

@@ -791,7 +791,7 @@ function name_equal(json,p,name) result(is_equal)
     class(json_core),intent(inout)      :: json
     type(json_value),intent(in)         :: p        !! the json object
     character(kind=CK,len=*),intent(in) :: name     !! the name to check for
-    logical                             :: is_equal !! true if the string are lexically equal
+    logical(LK)                         :: is_equal !! true if the string are lexically equal
 
     if (allocated(p%name)) then
 
@@ -1556,10 +1556,12 @@ function json_value_is_child_of(json,p1,p2) result(is_child_of)
     class(json_core),intent(inout) :: json
     type(json_value),pointer       :: p1
     type(json_value),pointer       :: p2
-    logical                        :: is_child_of
+    logical(LK)                    :: is_child_of
 
     is_child_of = .false.
 
+    if (json%exception_thrown) return
+
     if (associated(p1) .and. associated(p2)) then
         if (associated(p1%children)) then
             call json%traverse(p1%children,is_child_of_callback)