File tree Expand file tree Collapse file tree 1 file changed +9
-3
lines changed Expand file tree Collapse file tree 1 file changed +9
-3
lines changed Original file line number Diff line number Diff line change @@ -212,16 +212,22 @@ subroutine get_char_key( key, value )
212
212
error stop module_name // " % " // procedure // &
213
213
" : Internal Error at stdlib_hashmaps: " // &
214
214
" System uses 2 bytes per character, so " // &
215
- " key_size can't be an odd number"
215
+ " key_size can't be an odd number. "
216
216
end if
217
217
key_as_char = ishft( key_size, - 1 )
218
218
case (4 )
219
219
if ( iand ( key_size, 3_int64 ) > 0 ) then
220
- stop ' KEY does not map to a character string.'
220
+ error stop module_name // " % " // procedure // &
221
+ " : Internal Error at stdlib_hashmaps: " // &
222
+ " System uses 4 bytes per character, and " // &
223
+ " key_size is not a multiple of four."
221
224
end if
222
225
key_as_char = ishft( key_size, - 2 )
223
226
case default
224
- stop ' CHARACTER has an unrecognized size.'
227
+ error stop module_name // " % " // procedure // &
228
+ " : Internal Error: " // &
229
+ " System doesn't use a power of two for its " // &
230
+ " character size as expected by stdlib_hashmaps."
225
231
end select
226
232
227
233
allocate ( character ( len= key_as_char ) :: value )
You can’t perform that action at this time.
0 commit comments