Draft: add test for util_stride

What is the new feature

Please describe your feature in a couple of words.

How is it implemented

Describe important implementation details of the feature.

Mandatory steps before review

• Gitlab CI passes (Hint: use make format for linting)
• New feature is covered by additional unit tests
• Mark the merge request as ready by removing Draft:

Mandatory steps before merge

• Test coverage does not decrease
• Reviewed by a maintainer
• Incorporate review suggestions
• Prior to merging, please remove any boilerplate from the MR description, retaining only the Please describe your feature in a couple of words and describe important implementation details of the feature section to maintain
• Remember to edit the commit message and select the proper changelog category (feature/bugfix/other)

You are not supposed to merge this request by yourself, the maintainers of fortan-support take care of this action!

test/fortran/test_hash_table.f90

@@ -29,7 +29,7 @@ CONTAINS
 
     TYPE(t_HashTable), POINTER :: hashTable
     TYPE(t_HashIterator) :: iterator
-    CLASS(*), POINTER :: key, val
+    CLASS(*), POINTER :: key, val, retrieved_val
     CHARACTER(8), TARGET, ALLOCATABLE :: keyword(:)
     INTEGER, TARGET, ALLOCATABLE :: int_value(:)
     LOGICAL :: success
@@ -50,9 +50,19 @@ CONTAINS
       CALL hashTable%setEntry(key, val)
     END DO
 
-    CALL TAG_TEST("TEST_hash_table_int")
+    CALL TAG_TEST("TEST_hash_table_entry_count")
     CALL ASSERT_EQUAL(hashTable%getEntryCount(), table_size)
 
+    CALL TAG_TEST("TEST_hash_table_getEntry_3")
+    key => keyword(3)
+    retrieved_val => hashTable%getEntry(key)
+    CALL ASSERT_EQUAL(TRANSFER(retrieved_val, 0), int_value(3))
+
+    CALL TAG_TEST("TEST_hash_table_getEntry_10")
+    key => keyword(10)
+    retrieved_val => hashTable%getEntry(key)
+    CALL ASSERT_EQUAL(TRANSFER(retrieved_val, 0), int_value(10))
+
   END SUBROUTINE TEST_hash_table_int
 
 END MODULE TEST_mo_hash_table