increase coverage.

Author: jacobwilliams

src/json_value_module.F90

@@ -1228,9 +1228,6 @@ subroutine json_matrix_info_by_path(json,p,path,is_matrix,found,&
 
     type(json_value),pointer :: p_var
     logical(LK) :: ok
-#if defined __GFORTRAN__
-    character(kind=CK,len=:),allocatable :: p_name !! for getting the name
-#endif
 
     call json%get(p,path,p_var,found)
 
@@ -1249,17 +1246,7 @@ subroutine json_matrix_info_by_path(json,p,path,is_matrix,found,&
     else
 
         !get info about the variable:
-!#if defined __GFORTRAN__
-!        ! [note: passing name directory to this routine seems
-!        !        to have a bug on older gfortran versions...
-!        ! ... it also seems to be failing with unicode build ...
-!        ! ... this doesn't seem to fix the problem ...
-!        call json%matrix_info(p_var,is_matrix,var_type,n_sets,set_size,p_name)
-!        if (present(name)) name = p_name
-!        if (allocated(p_name)) deallocate(p_name)
-!#else
         call json%matrix_info(p_var,is_matrix,var_type,n_sets,set_size,name)
-!#endif
         if (json%failed() .and. present(found)) then
             found = .false.
             call json%clear_exceptions()

src/tests/jf_test_19.f90

@@ -6,7 +6,8 @@
 
 module jf_test_19_mod
 
-    use json_module, lk => json_lk, rk => json_rk, ik => json_ik, ck => json_ck
+    use json_module, lk => json_lk, rk => json_rk, ik => json_ik,&
+                     ck => json_ck, cdk => json_cdk
     use, intrinsic :: iso_fortran_env , only: error_unit,output_unit
 
     implicit none
@@ -128,6 +129,13 @@ subroutine test_19(error_cnt)
                             set_size=set_size,name=name)
     if (found) then
         write(error_unit,'(A)') '...success'
+
+        !test again with CDK path (for unicode wrapper)
+        call json%matrix_info(p,CDK_'matrix',is_matrix,found=found,&
+                                var_type=var_type,n_sets=n_sets,&
+                                set_size=set_size,name=name)
+
+
     else
         write(error_unit,*) 'error calling json_matrix_info_by_path with found input'
         error_cnt = error_cnt + 1

src/tests/jf_test_4.f90

@@ -111,7 +111,10 @@ subroutine test_4(error_cnt)
     write(error_unit,'(A)') ''
     !get some info:
     call core%info(p,'INPUTS',found,var_type,n_children,name)
-    if (.not. found) then
+    if (found) then
+        !test again with CDK path (for unicode wrapper)
+        call core%info(p,json_cdk_'INPUTS',found,var_type,n_children,name)
+    else
         write(error_unit,'(A)') 'Error getting info on INPUT'
         error_cnt = error_cnt + 1
     end if