diff --git a/src/stdlib_hashmap_open.f90 b/src/stdlib_hashmap_open.f90 index d27441548..979b097e9 100755 --- a/src/stdlib_hashmap_open.f90 +++ b/src/stdlib_hashmap_open.f90 @@ -283,7 +283,7 @@ module subroutine get_other_open_data( map, key, other, exists ) invalid_inmap end if else if ( associated( map % inverse(inmap) % target ) ) then - exists = .true. + if ( present(exists) ) exists = .true. call copy_other( map % inverse(inmap) % target % other, other ) else if ( present(exists) ) then