Remove other type from test_chaining and test_open

Author: chuckyvt

test/hashmaps/test_chaining_maps.f90

@@ -161,22 +161,17 @@ subroutine input_random_data( map, test_block, hash_name, size_name )
         integer(int_index), intent(in) :: test_block
         character(*), intent(in) :: hash_name
         character(*), intent(in) :: size_name
-        class(*), allocatable :: dummy
         type(dummy_type) :: dummy_val
         integer :: index2
         type(key_type) :: key
-        type(other_type) :: other
         real :: t1, t2, tdiff
         logical :: conflict
 
         call cpu_time(t1)
         do index2=1, size(test_8_bits), test_block
             call set( key, test_8_bits( index2:index2+test_block-1 ) )
-            if (allocated(dummy)) deallocate(dummy)
             dummy_val % value = test_8_bits( index2:index2+test_block-1 )
-            allocate( dummy, source=dummy_val )
-            call set ( other, dummy )
-            call map % map_entry( key, other, conflict )
+            call map % map_entry( key, dummy_val, conflict )
             if (conflict) &
                 error stop "Unable to map entry because of a key conflict."
         end do

test/hashmaps/test_open_maps.f90

@@ -162,22 +162,20 @@ subroutine input_random_data( map, test_block, hash_name, size_name )
         integer(int_index), intent(in) :: test_block
         character(*), intent(in) :: hash_name
         character(*), intent(in) :: size_name
-        class(*), allocatable :: dummy
+       
         type(dummy_type) :: dummy_val
         integer :: index2
         type(key_type) :: key
-        type(other_type) :: other
         real :: t1, t2, tdiff
         logical :: conflict
 
         call cpu_time(t1)
         do index2=1, size(test_8_bits), test_block
             call set( key, test_8_bits( index2:index2+test_block-1 ) )
-            if (allocated(dummy)) deallocate(dummy)
+            
             dummy_val % value = test_8_bits( index2:index2+test_block-1 )
-            allocate( dummy, source=dummy_val )
-            call set ( other, dummy )
-            call map % map_entry( key, other, conflict )
+            
+            call map % map_entry( key, dummy_val, conflict )
             if (conflict) &
                 error stop "Unable to map entry because of a key conflict."
         end do