fix issue in demo_copy_other

Author: jvdp1

doc/specs/stdlib_hashmaps.md

@@ -271,26 +271,24 @@ is an `intent(out)` argument.
 
 ```fortran
     program demo_copy_other
-      use stdlib_hashmap_wrappers, only: &
-          copy_other, get, other_type, set
+      use stdlib_hashmap_wrappers, only: 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
       type(dummy_type) :: dummy_val
-      do i=1, 15
+      do i = 1, 15
           dummy_val % value1(i) = i
       end do
       allocate(other_in % value, source=dummy_val)
       call copy_other( other_in, other_out )
-      select type(other_out)   !there is an issue here, please check.
-	  typeis(dummy_type)
+      select type(out => other_out % value)
+	  type is (dummy_type)
           print *, "other_in == other_out = ", &
-            all( dummy_val % value == other_out % value )
+            all( dummy_val % value == out % value )
       end select
     end program demo_copy_other
 ```