Update stdlib_hashmap_chaining.f90

fortran-lang · Jul 17, 2024 · 873a6de · 873a6de
1 parent 937cade
commit 873a6de
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/stdlib_hashmap_chaining.f90 b/src/stdlib_hashmap_chaining.f90
@@ -569,7 +569,7 @@ module subroutine map_chain_entry(map, key, other, conflict)
                 map % slots(hash_index) % target => new_ent
                 call copy_key( key, new_ent % key )
                 !if ( present(other) ) new_ent % other = other
-                allocate( new_ent % other, source=other)
+                if ( present(other) ) allocate( new_ent % other, source=other)
                 if ( new_ent % inmap == 0 ) then
                     map % num_entries = map % num_entries + 1
                     inmap = map % num_entries