Skip to content

Commit 8c562e4

Browse files
committed
Update stdlib_hashmap_chaining.f90
Another try to fix the CI
1 parent d06e047 commit 8c562e4

File tree

1 file changed

+5
-1
lines changed

1 file changed

+5
-1
lines changed

src/stdlib_hashmap_chaining.f90

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -811,7 +811,11 @@ module subroutine set_other_chaining_data( map, key, other, exists )
811811
else if ( associated( map % inverse(inmap) % target ) ) then
812812
! associate( target => map % inverse(inmap) % target )
813813
! target % other = other
814-
map % inverse(inmap) % target % other = other
814+
!map % inverse(inmap) % target % other = other
815+
if allocated( map % inverse(inmap) % target % other ) then
816+
deallocate( map % inverse(inmap) % target % other )
817+
endif
818+
allocate( map % inverse(inmap) % target % other, source=other)
815819
if ( present(exists) ) exists = .true.
816820
return
817821
! end associate

0 commit comments

Comments
 (0)