Test allocate again

Try allocate(new_ent % other, source = other) one more time.

Author: chuckyvt

src/stdlib_hashmap_chaining.f90

@@ -569,7 +569,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
+                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

src/stdlib_hashmap_open.f90

@@ -554,7 +554,8 @@ module subroutine map_open_entry(map, key, other, conflict)
                 new_ent % hash_val = hash_val
                 call copy_key( key, new_ent % key )
                 if ( present( other ) ) &
-                    new_ent % other = other
+                    !new_ent % other = other
+                    allocate(new_ent % other, source = other)
                 inmap = new_ent % inmap
                 map % inverse( inmap ) % target => new_ent
                 map % slots( test_slot ) = inmap