fixed str cat issue with unicode

Author: jacobwilliams

src/tests/jf_test_42.F90

@@ -24,9 +24,9 @@ subroutine test_42(error_cnt)
     integer,intent(out) :: error_cnt !! error counter
 
     character(kind=CK,len=*),parameter :: str = CK_'{'//&
-             '"bad_reals": [1.0, null, "NaN", "+Infinity", "-Infinity", 4.0],'//&
-             '"nonstandard_json": [.1e1, .1D1, .1d+1, +.1d1, +.1D1, +1.0, +1.0d0, +1.0D0]'//&
-             '}'
+             CK_'"bad_reals": [1.0, null, "NaN", "+Infinity", "-Infinity", 4.0],'//&
+             CK_'"nonstandard_json": [.1e1, .1D1, .1d+1, +.1d1, +.1D1, +1.0, +1.0d0, +1.0D0]'//&
+             CK_'}'
 
     real(rk),dimension(:),allocatable :: bad_reals
     logical(lk) :: found