Added optional name output to json_info. Fixes #141

Author: jacobwilliams

src/json_module.F90

@@ -1248,16 +1248,18 @@ end subroutine wrap_json_file_variable_info
 !
 !  Returns information about a [[json_value]].
 
-    subroutine json_info(p,var_type,n_children)
+    subroutine json_info(p,var_type,n_children,name)
 
     implicit none
 
     type(json_value),pointer         :: p
     integer(IK),intent(out),optional :: var_type   !! variable type
     integer(IK),intent(out),optional :: n_children !! number of children
+    character(kind=CK,len=:),allocatable,intent(out),optional :: name !! variable name
 
-    if (present(var_type))    var_type = p%var_type  !variable type
-    if (present(n_children))  n_children = json_count(p)  !number of children
+    if (present(var_type))    var_type   = p%var_type
+    if (present(n_children))  n_children = json_count(p)
+    if (present(name))        name       = p%name
 
     end subroutine json_info
 !*****************************************************************************************

src/tests/jf_test_10.f90

@@ -65,7 +65,7 @@ subroutine test_10(error_cnt)
     character(kind=CK,len=256),dimension(:),allocatable :: str_vec
     type(json_file) :: f,f2
     type(json_value),pointer :: p
-    character(kind=CK,len=:),allocatable :: str
+    character(kind=CK,len=:),allocatable :: str,name
     logical :: found,lval
     integer :: var_type,n_children
 
@@ -249,7 +249,7 @@ subroutine test_10(error_cnt)
             write(error_unit,'(A)') '...success'
 
             write(error_unit,'(A)') 'json_info...'
-            call json_info(p,var_type,n_children)
+            call json_info(p,var_type,n_children,name)
             if (json_failed()) then
                 call json_print_error_message(error_unit)
                 error_cnt = error_cnt + 1