feat(string_t): add get_string_with_character_key

This commit adds a specific type-bound procedure for the string_t
get_json_value generic binding.  This procedure finishes out the
possible combinations of a string_t or character key with a
string_t or character mold/result-value.

Author: rouson

src/julienne/julienne_string_m.f90

@@ -26,22 +26,24 @@ module julienne_string_m
     generic :: operator(/=)   => string_t_ne_string_t, string_t_ne_character, character_ne_string_t
     generic :: operator(==)   => string_t_eq_string_t, string_t_eq_character, character_eq_string_t
     generic :: assignment(= ) => assign_string_t_to_character, assign_character_to_string_t
-    generic :: get_json_value => get_string, get_string_t_array_with_character_key, get_string_t_array_with_string_t_key &
+    generic :: get_json_value => get_string_with_string_key  &
+                                ,get_character_with_string_key, get_character_with_character_key &
+                                ,get_string_t_array_with_character_key, get_string_t_array_with_string_t_key &
                                 ,get_real, get_real_with_character_key &
-                                ,get_character, get_character_with_character_key &
                                 ,get_logical, get_logical_with_character_key  &
                                 ,get_real_array ,get_real_array_with_character_key &
                                 ,get_integer_array, get_integer_array_with_character_key &
                                 ,get_integer, get_integer_with_character_key &
                                 ,get_double_precision, get_double_precision_with_character_key &
                                 ,get_double_precision_array, get_double_precision_array_with_character_key
+    procedure, private :: get_string_with_string_key
+    procedure, private :: get_character_with_string_key, get_character_with_character_key
+    procedure, private :: get_string_t_array_with_character_key, get_string_t_array_with_string_t_key
     procedure, private :: get_real, get_real_with_character_key
-    procedure, private :: get_string, get_string_t_array_with_character_key, get_string_t_array_with_string_t_key
     procedure, private :: get_logical, get_logical_with_character_key
     procedure, private :: get_integer, get_integer_with_character_key
     procedure, private :: get_real_array, get_real_array_with_character_key
     procedure, private :: get_integer_array, get_integer_array_with_character_key
-    procedure, private :: get_character, get_character_with_character_key
     procedure, private :: get_double_precision, get_double_precision_with_character_key
     procedure, private :: get_double_precision_array, get_double_precision_array_with_character_key
     procedure, private :: string_t_ne_string_t, string_t_ne_character
@@ -250,7 +252,7 @@ pure module function get_double_precision_array_with_character_key(self, key, mo
       double precision, allocatable :: value_(:)
     end function
 
-    pure module function get_character(self, key, mold) result(value_)
+    pure module function get_character_with_string_key(self, key, mold) result(value_)
       implicit none
       class(string_t), intent(in) :: self, key
       character(len=*), intent(in) :: mold
@@ -264,12 +266,19 @@ pure module function get_character_with_character_key(self, key, mold) result(va
       character(len=:), allocatable :: value_
     end function
 
-    elemental module function get_string(self, key, mold) result(value_)
+    elemental module function get_string_with_string_key(self, key, mold) result(value_)
       implicit none
       class(string_t), intent(in) :: self, key, mold
       type(string_t) :: value_
     end function
 
+    elemental module function get_string_with_character_key(self, key, mold) result(value_)
+      implicit none
+      class(string_t), intent(in) :: self, mold
+      character(len=*), intent(in) :: key
+      type(string_t) :: value_
+    end function
+
     pure module function get_string_t_array_with_string_t_key(self, key, mold) result(value_)
       implicit none
       class(string_t), intent(in) :: self

src/julienne/julienne_string_s.F90

@@ -220,14 +220,20 @@
 
   end procedure
 
-  module procedure get_character
-    associate(string_value => self%get_string(key, string_t(mold)))
+  module procedure get_character_with_string_key
+    associate(string_value => self%get_string_with_string_key(key, string_t(mold)))
       value_ = string_value%string()
     end associate
   end procedure
 
   module procedure get_character_with_character_key
-    associate(string_value => self%get_string(string_t(key), string_t(mold)))
+    associate(string_value => self%get_string_with_string_key(string_t(key), string_t(mold)))
+      value_ = string_value%string()
+    end associate
+  end procedure
+
+  module procedure get_string_with_character_key
+    associate(string_value => self%get_string_with_string_key(string_t(key), mold))
       value_ = string_value%string()
     end associate
   end procedure
@@ -265,7 +271,7 @@
     end associate
   end procedure
 
-  module procedure get_string
+  module procedure get_string_with_string_key
 
     character(len=:), allocatable :: raw_line
 

test/modules/string_test_m.F90

@@ -78,7 +78,7 @@ function results() result(test_results)
 #else
     ! Work around missing Fortran 2008 feature: associating a procedure actual argument with a procedure pointer dummy argument:
     procedure(diagnosis_function_i), pointer :: &
-      ,check_allocation_ptr                         => check_allocation &
+       check_allocation_ptr                         => check_allocation &
       ,extracts_key_ptr                             => extracts_key &
       ,extracts_double_precision_value_ptr          => extracts_double_precision_value &
       ,extracts_real_value_ptr                      => extracts_real_value &