Improved error messages

Changed error messages to use error stop, module name and procedure name.

[ticket: X]

Author: wclodius2

src/stdlib_hashmap_open.f90

@@ -559,11 +559,10 @@ module subroutine map_open_entry(map, key, other, conflict)
 
         subroutine allocate_open_map_entry(map, bucket)
 !         allocates a hash bucket
-            type(open_hashmap_type), intent(inout) :: map
-
-            type(open_map_entry_type), pointer, intent(out) :: bucket
+            type(open_hashmap_type), intent(inout) :: map            type(open_map_entry_type), pointer, intent(out) :: bucket
             type(open_map_entry_list), pointer :: free_list
             type(open_map_entry_pool), pointer :: pool
+            character(*), parameter :: procedure_name = "ALLOCATE_MAP_ENTRY"
 
             pool => map % cache
             map % num_entries = map % num_entries + 1
@@ -574,7 +573,9 @@ subroutine allocate_open_map_entry(map, bucket)
                 map % free_list => free_list % next
                 free_list % target => null()
                 free_list % next => null()
-                if (bucket % inmap == 0) stop "bucket % inmap == 0"
+                if (bucket % inmap <= 0) &
+                    error stop submodule_name // " % " // procedure_name // &
+                    ": Failed consistency check: BUCKET % INMAP <= 0"
                 map % num_free = map % num_free - 1
             else
 !             Get hash bucket from pool
@@ -589,7 +590,9 @@ subroutine allocate_open_map_entry(map, bucket)
                      size( map % inverse, kind=int_index ) ) then
                     call expand_inverse( map )
                 end if
-                if ( map % num_entries == 0 ) stop "MAP % NUM_ENTRIES == 0."
+                if ( map % num_entries <= 0 ) &
+                    error stop submodule_name // " % " // procedure_name // &
+                    ": Failed consistency check: MAP % NUM_ENTRIES <= 0."
                 bucket % inmap = map % num_entries
             end if
 

src/stdlib_hashmap_wrappers.f90

@@ -55,6 +55,8 @@ module stdlib_hashmap_wrappers
         bits_char = character_storage_size, &
         bytes_char = bits_char/bits_int8
 
+    character(*), parameter :: module_name = "STDLIB_HASHMAP_WRAPPERS"
+
     type :: key_type
 !! Version: Experimental
 !!
@@ -196,6 +198,7 @@ subroutine get_char_key( key, value )
 !!     value - the contents of key mapped to a CHARACTER string
         type(key_type), intent(in)             :: key
         character(:), allocatable, intent(out) :: value
+        character(*), parameter :: procedure_name = "GET"
 
         integer(int64) :: key_as_char
         integer(int64) :: key_size
@@ -206,9 +209,10 @@ subroutine get_char_key( key, value )
             key_as_char = key_size
         case(2)
             if ( iand( key_size, 1_int64 ) > 0 ) then
-                error stop "Internal Error at stdlib_hashmaps:&
-                           & System uses 2 bytes per character, so&
-                           & key_size can't be an odd number"
+                error stop module_name // " % " procedure_name // &
+                          ": Internal Error at stdlib_hashmaps: " // &
+                           "System uses 2 bytes per character, so " // &
+                           "key_size can't be an odd number"
             end if
             key_as_char = ishft( key_size, -1 )
         case(4)