fix demo_copy_otehr

Author: jvdp1

test/example/hashmaps/CMakeLists.txt

@@ -1,6 +1,6 @@
 ADD_DEMO(hashmaps_calls)
 ADD_DEMO(hashmaps_copy_key)
-#ADD_DEMO(hashmaps_copy_other)
+ADD_DEMO(hashmaps_copy_other)
 ADD_DEMO(hashmaps_entries)
 ADD_DEMO(hashmaps_equal_keys)
 ADD_DEMO(hashmaps_fnv_1a_hasher)

test/example/hashmaps/demo_hashmaps_copy_other.f90

@@ -1,11 +1,10 @@
 program demo_copy_other
     use stdlib_hashmap_wrappers, only: &
-        copy_other, get, other_type, set
+        copy_other, other_type
     use iso_fortran_env, only: int8
     implicit none
     type(other_type) :: other_in, other_out
     integer(int8) :: i
-    class(*), allocatable :: dummy
     type dummy_type
         integer(int8) :: value(15)
     end type
@@ -15,9 +14,9 @@ program demo_copy_other
     end do
     allocate (other_in%value, source=dummy_val)
     call copy_other(other_in, other_out)
-    select type (other_out)
-        typeis(dummy_type)
-        print *, "other_in == other_out = ", &
-            all(other_in%value == other_out%value)
+    select type (out => other_out%value)
+        type is (dummy_type)
+            print *, "other_in == other_out = ", &
+              all(dummy_val % value == out%value)
     end select
 end program demo_copy_other