Bug fix: parse_array should be recursive because it is called by parse_value. This resolves Issue #28.

Also added optional input to load_json_file

Author: jacobwilliams

src/json_module.f90

@@ -591,14 +591,15 @@ end subroutine move_pointer_in_json_file
 !
 !  SOURCE
 
-    subroutine load_json_file(me, filename)
+    subroutine load_json_file(me, filename, unit)
 
     implicit none
 
     class(json_file),intent(inout) :: me
     character(len=*),intent(in) :: filename
+    integer,intent(in),optional :: unit
 
-    call json_parse(filename, me%p)
+    call json_parse(file=filename, p=me%p, unit=unit)
 
     end subroutine load_json_file
 !*****************************************************************************************
@@ -1285,7 +1286,7 @@ end subroutine json_value_destroy
 !****f* json_module/json_value_remove
 !
 !  NAME
-!    json_value_destroy
+!    json_value_remove
 !
 !  DESCRIPTION
 !    Remove a json_value (and all its children) 
@@ -4206,7 +4207,7 @@ end subroutine parse_object
 !
 !  SOURCE
 
-    subroutine parse_array(unit, array)
+    recursive subroutine parse_array(unit, array)
 
     implicit none