stdlib_hashmap_wrappers and test_maps.fypp

Added doc strings to explain the key_type approach in test_map.fypp.

Indentation cleanup

Added pure specifier to get and set int32 key type routines.

Author: chuckyvt

src/stdlib_hashmap_wrappers.f90

@@ -279,7 +279,7 @@ subroutine get_int8_key( key, value )
     end subroutine get_int8_key
 
 
-    subroutine get_int32_key( key, value )
+    pure subroutine get_int32_key( key, value )
 !! Version: Experimental
 !!
 !! Gets the contents of the key as an INTEGER(INT32) vector
@@ -340,17 +340,17 @@ subroutine set_int8_key( key, value )
     end subroutine set_int8_key
 
 
-    subroutine set_int32_key( key, value )
+    pure subroutine set_int32_key( key, value )
 !! Version: Experimental
 !!
 !! Sets the contents of the key from an INTEGER(INT32) vector
 !! Arguments:
 !!     key   - the output key
 !!     value - the input INTEGER(INT32) vector
-                        type(key_type), intent(out) :: key
-                        integer(int32), intent(in)   :: value(:)
+        type(key_type), intent(out) :: key
+        integer(int32), intent(in)   :: value(:)
 
-                        key % value = transfer(value, key % value)
+        key % value = transfer(value, key % value)
 
     end subroutine set_int32_key
 

test/hashmaps/test_maps.fypp

@@ -24,6 +24,8 @@ module test_stdlib_chaining_maps
     integer, parameter        :: test_size = rand_size*4
     integer, parameter        :: test_16 = 2**4
     integer, parameter        :: test_256 = 2**8
+    ! key_type = 2 to support int8 and int32 key types tested.  Can be 
+    ! icreased to generate additional unique int8 vectors additional key types.   
     integer, parameter        :: key_types = 2
     public :: collect_stdlib_chaining_maps
 
@@ -275,6 +277,8 @@ module test_stdlib_open_maps
     integer, parameter        :: test_size = rand_size*4
     integer, parameter        :: test_16 = 2**4
     integer, parameter        :: test_256 = 2**8
+    ! key_type = 2 to support int8 and int32 key types tested.  Can be 
+    ! icreased to generate additional unique int8 vectors additional key types.  
     integer, parameter        :: key_types = 2
 
     public :: collect_stdlib_open_maps