Merge branch '312-escaping-hotfix' of https://github.com/jacobwilliams/json-fortran into devel

Author: jacobwilliams

src/json_string_utilities.F90

@@ -369,6 +369,9 @@ subroutine escape_string(str_in, str_out, escape_solidus)
                 if (escape_solidus) then
                     str_out(ipos:ipos+1) = backslash//c
                     ipos = ipos + 2
+                else
+                    str_out(ipos:ipos) = c
+                    ipos = ipos + 1
                 end if
             case(bspace)
                 str_out(ipos:ipos+1) = '\b'

src/tests/jf_test_30.F90

@@ -22,7 +22,7 @@ subroutine test_30(error_cnt)
     type(json_core) :: json_c
     integer :: i
 
-    character(kind=CK,len=*),parameter :: str = CK_'{"vars":{"a/first":1,"a\/second":2}}'
+    character(kind=CK,len=*),parameter :: str = CK_'{"vars":{"a/first":1,"a\/second":2,"a\\b\\c\/third/blah/blah":3}}'
     character(len=*),dimension(2),parameter :: tf = ['True ','False']
 
     error_cnt = 0