Typo fix

typo fix

Author: chuckyvt

src/stdlib_hashmap_chaining.f90

@@ -571,7 +571,7 @@ module subroutine map_chain_entry(map, key, other, conflict)
                 call copy_key( key, new_ent % key )
                 !if ( present(other) ) new_ent % other = other
                 if ( present(other) ) then
-                    if ALLOCATED(new_ent % other) deallocate(new_ent % other)
+                    if ( allocated(new_ent % other) ) deallocate(new_ent % other)
                     allocate(new_ent % other, source = other)
                 endif
                 if ( new_ent % inmap == 0 ) then

src/stdlib_hashmap_open.f90

@@ -555,7 +555,7 @@ module subroutine map_open_entry(map, key, other, conflict)
                 call copy_key( key, new_ent % key )
                 if ( present( other ) ) then
                     !new_ent % other = other
-                    if ALLOCATED(new_ent % other) deallocate(new_ent % other)
+                    if ( allocated(new_ent % other) ) deallocate(new_ent % other)
                     allocate(new_ent % other, source = other)
                 endif
                 inmap = new_ent % inmap