Skip to content

Commit a4c579d

Browse files
committed
Fix for the procedure remove in chaining maps
1 parent 834d07b commit a4c579d

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

src/stdlib_hashmap_chaining.f90

+1
Original file line numberDiff line numberDiff line change
@@ -775,6 +775,7 @@ module subroutine remove_chaining_entry(map, key, existed)
775775
centry % next => bentry
776776
map % inverse(inmap) % target => null()
777777
map % num_free = map % num_free + 1
778+
map % num_entries = map % num_entries - 1
778779

779780
end subroutine remove_chaining_entry
780781

0 commit comments

Comments
 (0)