Update stdlib_hashmap_chaining.f90

Test to see if removing associate construct fixes the one CI failure.
chuckyvt · Jul 16, 2024 · 351e628 · 351e628
1 parent 9415a37
commit 351e628
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/stdlib_hashmap_chaining.f90 b/src/stdlib_hashmap_chaining.f90
@@ -809,11 +809,12 @@ module subroutine set_other_chaining_data( map, key, other, exists )
                     invalid_inmap
             end if
         else if ( associated( map % inverse(inmap) % target ) ) then
-            associate( target => map % inverse(inmap) % target )
-                target % other = other
+         !   associate( target => map % inverse(inmap) % target )
+         !       target % other = other
+                map % inverse(inmap) % target % other = other
                 if ( present(exists) ) exists = .true.
                 return
-            end associate
+         !   end associate
         else
             error stop submodule_name // ' % ' // procedure // ': ' // &
                 invalid_inmap