Update to include allocate statement

Another try
fortran-lang · Jul 10, 2024 · 154579e · 154579e
1 parent 775be76
commit 154579e
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/stdlib_hashmap_chaining.f90 b/src/stdlib_hashmap_chaining.f90
@@ -570,7 +570,10 @@ 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
-                if ( present(other) ) allocate(new_ent % other, source = other)
+                if ( present(other) ) then
+                    if ALLOCATED(new_ent % other) deallocate(new_ent % other)
+                    allocate(new_ent % other, source = other)
+                endif
                 if ( new_ent % inmap == 0 ) then
                     map % num_entries = map % num_entries + 1
                     inmap = map % num_entries

diff --git a/src/stdlib_hashmap_open.f90 b/src/stdlib_hashmap_open.f90
@@ -553,9 +553,11 @@ module subroutine map_open_entry(map, key, other, conflict)
                 call allocate_open_map_entry(map, new_ent)
                 new_ent % hash_val = hash_val
                 call copy_key( key, new_ent % key )
-                if ( present( other ) ) &
+                if ( present( other ) ) then
                     !new_ent % other = other
+                    if ALLOCATED(new_ent % other) deallocate(new_ent % other)
                     allocate(new_ent % other, source = other)
+                endif
                 inmap = new_ent % inmap
                 map % inverse( inmap ) % target => new_ent
                 map % slots( test_slot ) = inmap