Merge branch 'develop' of https://github.com/jacobwilliams/json-fortran into 477-remove-bug-fix

Author: jacobwilliams

json-fortran.fobis

@@ -14,8 +14,8 @@ $SHARED_LIB   = libjsonfortran.so
 $OPTIMIZE     = -O2
 $CSTATIC_GNU  = -c -fbacktrace -Wall -Wextra -Wno-maybe-uninitialized -Wno-unused-function -pedantic -std=f2008ts
 $DEBUG_GNU    = -O0 -g3 -Warray-bounds -Wcharacter-truncation -Wline-truncation -Wimplicit-interface -Wimplicit-procedure -Wunderflow -fcheck=all -fmodule-private -ffree-line-length-132 -fimplicit-none -fbacktrace -fdump-core -finit-real=nan -std=f2008ts -fall-intrinsics
-$CSTATIC_INT  = -c -std15
-$DEBUG_INT    = -O0 -debug all -check all -warn all -extend-source 132 -traceback -gen-interfaces -fpe-all=0 -fp-stack-check -fstack-protector-all -ftrapuv -no-ftz -std15
+$CSTATIC_INT  = -c -std18
+$DEBUG_INT    = -O0 -debug all -check all -warn all -extend-source 132 -traceback -gen-interfaces -fpe-all=0 -fp-stack-check -fstack-protector-all -ftrapuv -no-ftz -std18
 $EXCLUDE_DIRS = ./src/tests/introspection
                 ./visual_studio/jsonfortrantest
 

src/json_parameters.F90

@@ -52,7 +52,7 @@ module json_parameters
                                                                     !! [[json_get_by_path_default]]
     character(kind=CK,len=*),parameter :: end_array_alt   = CK_')'  !! alternate end of JSON array for
                                                                     !! [[json_get_by_path_default]]
-    character(kind=CK,len=*),parameter :: root            = CK_'$'  !! root for [[json_get_by_path_default]]
+    character(kind=CK,len=*),parameter :: root            = achar(36, kind=CK)  !! (`$`) root for [[json_get_by_path_default]]
     character(kind=CK,len=*),parameter :: this            = CK_'@'  !! 'this' for [[json_get_by_path_default]]
     character(kind=CK,len=*),parameter :: dot             = CK_'.'  !! path separator for [[json_get_by_path_default]]
     character(kind=CK,len=*),parameter :: tilde           = CK_'~'  !! RFC 6901 escape character

src/json_string_utilities.F90

@@ -809,7 +809,7 @@ end function default_neq_ucs4
 !
 !  Returns lowercase version of the `CK` string.
 
-    pure elemental function lowercase_string(str) result(s_lower)
+    pure function lowercase_string(str) result(s_lower)
 
     implicit none