Update stdlib_hashmap_chaining.f90

fortran-lang · Jul 16, 2024 · 4bd0bb4 · 4bd0bb4
1 parent 3e7337e
commit 4bd0bb4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/stdlib_hashmap_chaining.f90 b/src/stdlib_hashmap_chaining.f90
@@ -812,7 +812,7 @@ module subroutine set_other_chaining_data( map, key, other, exists )
          !   associate( target => map % inverse(inmap) % target )
          !       target % other = other
                 !map % inverse(inmap) % target % other = other
-                if allocated( map % inverse(inmap) % target % other ) then
+                if ( allocated( map % inverse(inmap) % target % other ) ) then
                     deallocate( map % inverse(inmap) % target % other )
                 endif
                 allocate( map % inverse(inmap) % target % other, source=other)