Update example_hashmaps_rehash.f90

Remove 'other_type' reference.
fortran-lang · Jul 10, 2024 · 793c049 · 793c049
1 parent 8ade03d
commit 793c049
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/example/hashmaps/example_hashmaps_rehash.f90 b/example/hashmaps/example_hashmaps_rehash.f90
@@ -2,16 +2,12 @@ program example_rehash
   use stdlib_kinds, only: int8
   use stdlib_hashmaps, only: open_hashmap_type
   use stdlib_hashmap_wrappers, only: fnv_1_hasher, fnv_1a_hasher, &
-                                     key_type, other_type, set
+                                     key_type, set
   implicit none
   type(open_hashmap_type) :: map
   type(key_type)      :: key
-  type(other_type)    :: other
-  class(*), allocatable :: dummy
-  allocate (dummy, source='a dummy value')
   call map%init(fnv_1_hasher, slots_bits=10)
   call set(key, [5_int8, 7_int8, 4_int8, 13_int8])
-  call set(other, dummy)
-  call map%map_entry(key, other)
+  call map%map_entry(key, 'A value')
   call map%rehash(fnv_1a_hasher)
 end program example_rehash