Update stdlib_hashmap_chaining.f90

Another try to fix CI issue
chuckyvt · Jul 17, 2024 · 937cade · 937cade
1 parent 2ae0d6d
commit 937cade
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/stdlib_hashmap_chaining.f90 b/src/stdlib_hashmap_chaining.f90
@@ -568,7 +568,8 @@ module subroutine map_chain_entry(map, key, other, conflict)
                 new_ent % next => map % slots(hash_index) % target
                 map % slots(hash_index) % target => new_ent
                 call copy_key( key, new_ent % key )
-                if ( present(other) ) new_ent % other = other
+                !if ( present(other) ) new_ent % other = other
+                allocate( new_ent % other, source=other)
                 if ( new_ent % inmap == 0 ) then
                     map % num_entries = map % num_entries + 1
                     inmap = map % num_entries