Merge branch 'hash_maps' of github.com:wclodius2/stdlib into hash_maps

Author: wclodius2

src/stdlib_hashmap_chaining.f90

@@ -406,7 +406,7 @@ module subroutine init_chaining_map( map,        &
         integer, intent(in), optional              :: slots_bits
         integer(int32), intent(out), optional      :: status
 
-        character(256)          :: errmsg = ''
+        character(256)          :: errmsg
         integer(int_index)      :: index
         character(*), parameter :: procedure = 'INIT'
         integer(int_index)      :: slots

src/stdlib_hashmap_wrappers.f90

@@ -206,7 +206,9 @@ subroutine get_char_key( key, value )
             key_as_char = key_size
         case(2)
             if ( iand( key_size, 1_int64 ) > 0 ) then
-                stop 'KEY does not map to a character string.'
+                error stop "Internal Error at stdlib_hashmaps:&
+                           & System uses 2 bytes per character, so&
+                           & key_size can't be an odd number"
             end if
             key_as_char = ishft( key_size, -1 )
         case(4)
@@ -262,7 +264,7 @@ subroutine set_char_key( key, value )
 !!     key   - the output key
 !!     value - the input CHARACTER string
         type(key_type), intent(out) :: key
-        character(*), intent(in)    :: value(:)
+        character(*), intent(in)    :: value
 
         key % value = transfer( value, key % value, &
                                 bytes_char * len( value ) )