From 937cade86f4fb935d016f92ea3c2a238a939f36d Mon Sep 17 00:00:00 2001
From: chuckyvt <138633930+chuckyvt@users.noreply.github.com>
Date: Tue, 16 Jul 2024 22:33:42 -0400
Subject: [PATCH] Update stdlib_hashmap_chaining.f90
Another try to fix CI issue
---
src/stdlib_hashmap_chaining.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/stdlib_hashmap_chaining.f90 b/src/stdlib_hashmap_chaining.f90
index 897964b53..47796ec46 100644
--- a/src/stdlib_hashmap_chaining.f90
+++ b/src/stdlib_hashmap_chaining.f90
@@ -568,7 +568,8 @@ module subroutine map_chain_entry(map, key, other, conflict)
new_ent % next => map % slots(hash_index) % target
map % slots(hash_index) % target => new_ent
call copy_key( key, new_ent % key )
- if ( present(other) ) new_ent % other = other
+ !if ( present(other) ) new_ent % other = other
+ allocate( new_ent % other, source=other)
if ( new_ent % inmap == 0 ) then
map % num_entries = map % num_entries + 1
inmap = map % num_entries