Skip to content

Commit d06e047

Browse files
committed
Update stdlib_hashmap_chaining.f90
Test to see if removing associate construct fixes the one CI failure.
1 parent 30f2210 commit d06e047

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

src/stdlib_hashmap_chaining.f90

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -809,11 +809,12 @@ module subroutine set_other_chaining_data( map, key, other, exists )
809809
invalid_inmap
810810
end if
811811
else if ( associated( map % inverse(inmap) % target ) ) then
812-
associate( target => map % inverse(inmap) % target )
813-
target % other = other
812+
! associate( target => map % inverse(inmap) % target )
813+
! target % other = other
814+
map % inverse(inmap) % target % other = other
814815
if ( present(exists) ) exists = .true.
815816
return
816-
end associate
817+
! end associate
817818
else
818819
error stop submodule_name // ' % ' // procedure // ': ' // &
819820
invalid_inmap

0 commit comments

Comments
 (0)