Skip to content

Commit b2276b7

Browse files
committed
Changed error reporting for in_chain_map.
Removed write to error_unit aand documented error reporting via inmap. [ticket: X]
1 parent ede1534 commit b2276b7

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

src/stdlib_hashmap_chaining.f90

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -334,7 +334,9 @@ subroutine in_chain_map(map, inmap, key)
334334
!! Returns the index into the INVERSE array associated with the KEY
335335
!! Arguments:
336336
!! map - the hash map of interest
337-
!! inmap - the returned index into the INVERSE array of entry pointers
337+
!! inmap - the returned index into the INVERSE array of entry pointers.
338+
!! A value of zero indicates that an entry with that key was not
339+
!! found.
338340
!! key - the key identifying the entry of interest
339341
!
340342
class(chaining_hashmap_type), intent(inout) :: map
@@ -360,7 +362,6 @@ subroutine in_chain_map(map, inmap, key)
360362
gentry => pentry
361363
map % probe_count = map % probe_count + 1
362364
if (.not. associated( gentry ) ) then
363-
write(error_unit,*) "gentry not associated"
364365
inmap = 0
365366
return
366367
else if ( hash_val == gentry % hash_val ) then

0 commit comments

Comments
 (0)