Merge pull request #707 from degawa/fix-open_hashmap_type-access-viol…

…ation Fixed access violation in a type-bound procedure of `open_hashmap_type`
fortran-lang · May 4, 2023 · b76075a · b76075a
2 parents 2fdfab4 + 458209d
commit b76075a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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