diff --git a/src/sourcery/sourcery_string_m.f90 b/src/sourcery/sourcery_string_m.f90
index 41a0b980..df67d1db 100644
--- a/src/sourcery/sourcery_string_m.f90
+++ b/src/sourcery/sourcery_string_m.f90
@@ -18,7 +18,7 @@ module sourcery_string_m
     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_json_integer_array, get_json_logical, get_json_integer, get_json_string, get_json_real
-    procedure ::                     get_json_integer_array, get_json_logical, get_json_integer, get_json_string, get_json_real
+    procedure, private            :: get_json_integer_array, get_json_logical, get_json_integer, get_json_string, get_json_real
     procedure, private            :: string_t_ne_string_t, string_t_ne_character
     procedure, private            :: string_t_eq_string_t, string_t_eq_character
     procedure, private            :: assign_character_to_string_t
@@ -76,7 +76,7 @@ elemental module function get_json_string(self, key, mold) result(value_)
       type(string_t) :: value_
     end function
 
-    elemental module function get_json_integer(self, key, mold) result(value_)
+    pure module function get_json_integer(self, key, mold) result(value_)
       implicit none
       class(string_t), intent(in) :: self, key
       integer, intent(in) ::  mold