Merge pull request #183 from jacobwilliams/loop

added checks to avoid unnecessary looping when traversing arrays if a…

Author: jacobwilliams

src/json_value_module.F90

@@ -4204,6 +4204,7 @@ subroutine json_get_array(json, me, array_callback)
                 return
             end if
             call array_callback(json, element, i, count)
+            if (json%exception_thrown) exit
             element => element%next
         end do
     case default
@@ -4270,7 +4271,7 @@ recursive subroutine traverse(p)
                         return
                     end if
                     call traverse(element)
-                    if (finished) exit
+                    if (finished .or. json%exception_thrown) exit
                     element => element%next
                 end do
             end if