fixed char missmatch.

Author: jacobwilliams

src/tests/jf_test_2.f90

@@ -28,7 +28,7 @@ subroutine test_2(error_cnt)
     type(json_value),pointer :: p, inp, traj, p_tmp, p_integer_array, p_clone
 
     integer :: iunit
-    character(len=:),allocatable :: name
+    character(kind=CK,len=:),allocatable :: name
     integer :: ival,ival_clone
     logical :: found