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_util_stride.f90

@@ -47,20 +47,4 @@ CONTAINS
     CALL ASSERT_EQUAL(f_out(1), 1)
     CALL ASSERT_EQUAL(f_out(2), 10)
   END SUBROUTINE TEST_util_stride_2d
-  SUBROUTINE TEST_util_get_ptrdiff
-    INTEGER(c_size_t) :: s
-    REAL, DIMENSION(1, 10), TARGET :: array
-    TYPE(c_ptr) :: p1, p2
-
-    CALL TAG_TEST("util_get_ptrdiff")
-
-    array = RESHAPE([1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0], [1, 10])
-    p1 = C_LOC(array(1, 1))
-    p2 = C_LOC(array(1, 10))
-
-    PRINT *, TRANSFER(p1, 0_c_size_t), TRANSFER(p2, 0_c_size_t)
-    s = util_get_ptrdiff(TRANSFER(p1, 0_c_size_t), TRANSFER(p2, 0_c_size_t))
-
-    CALL ASSERT_EQUAL(s, 14*SIZEOF(array(1, 1)))
-  END SUBROUTINE TEST_util_get_ptrdiff
 END MODULE test_mo_util_stride