From 6450097195552fa7ac4fe4069ce2d98c5f37c887 Mon Sep 17 00:00:00 2001
From: Jonas Jucker <jonas.jucker@c2sm.ethz.ch>
Date: Tue, 30 Jan 2024 18:32:02 +0100
Subject: [PATCH] remove crashing test
---
test/fortran/test_util_stride.f90 | 16 ----------------
1 file changed, 16 deletions(-)
diff --git a/test/fortran/test_util_stride.f90 b/test/fortran/test_util_stride.f90
index d890e7e..5772aaa 100644
--- a/test/fortran/test_util_stride.f90
+++ b/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
--
GitLab