If using the 'found' argument in json_get_by_path, exceptions raised in this routine will now be cleared. Fixes #330

Author: jacobwilliams

src/json_value_module.F90

@@ -5680,9 +5680,6 @@ end function wrap_json_valid_path
 !
 !  * The original JSON-Fortran defaults
 !  * [RFC 6901](https://tools.ietf.org/html/rfc6901)
-!
-!@warning if `found` is present, we should clear any exceptions that are thrown
-!         to be consistent with other routines. This is not currently being done.
 
     subroutine json_get_by_path(json, me, path, p, found)
 
@@ -5717,6 +5714,10 @@ subroutine json_get_by_path(json, me, path, p, found)
             if (present(found)) found = .false.
         end select
 
+        if (present(found)) then
+            if (.not. found) call json%clear_exceptions()
+        end if
+
     else
         if (present(found)) found = .false.
     end if