From 351e628d7fdd84074f7eb3466bc687bf3c7cd09b Mon Sep 17 00:00:00 2001 From: chuckyvt <138633930+chuckyvt@users.noreply.github.com> Date: Mon, 15 Jul 2024 22:33:09 -0400 Subject: [PATCH] Update stdlib_hashmap_chaining.f90 Test to see if removing associate construct fixes the one CI failure. --- src/stdlib_hashmap_chaining.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/stdlib_hashmap_chaining.f90 b/src/stdlib_hashmap_chaining.f90 index a0e694a10..3d2e6ba14 100644 --- 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