From e6d146d65f169d0360426904ab3680a1e475228a Mon Sep 17 00:00:00 2001
From: Jonas Jucker <jonas.jucker@c2sm.ethz.ch>
Date: Wed, 31 Jan 2024 08:50:43 +0100
Subject: [PATCH] Revert "drop util_stride tests"
This reverts commit 0d4b745a81aa6f9fd9dce822e5b4d1cbb9b52d37.
---
test/fortran/test_util_stride.f90 | 50 +++++++++++++++++++++++++++++++
1 file changed, 50 insertions(+)
create mode 100644 test/fortran/test_util_stride.f90
diff --git a/test/fortran/test_util_stride.f90 b/test/fortran/test_util_stride.f90
new file mode 100644
index 0000000..de905d3
--- /dev/null
+++ b/test/fortran/test_util_stride.f90
@@ -0,0 +1,50 @@
+! ICON
+!
+! ---------------------------------------------------------------
+! Copyright (C) 2004-2024, DWD, MPI-M, DKRZ, KIT, ETH, MeteoSwiss
+! Contact information: icon-model.org
+!
+! See AUTHORS.TXT for a list of authors
+! See LICENSES/ for license information
+! SPDX-License-Identifier: BSD-3-Clause
+! ---------------------------------------------------------------
+
+MODULE test_mo_util_stride
+ USE FORTUTF
+ USE ISO_C_BINDING, ONLY: c_int, c_ptr, c_loc, c_size_t, c_sizeof
+ USE mo_util_stride
+CONTAINS
+ SUBROUTINE TEST_util_stride_1d
+ INTEGER(c_int) :: f_out, elemsize
+ REAL, DIMENSION(10), TARGET :: array
+ TYPE(c_ptr) :: p1, p2
+
+ CALL TAG_TEST("util_stride_1d")
+ array = [1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0]
+ elemsize = C_SIZEOF(array(1))
+ p1 = C_LOC(array(1))
+ p2 = C_LOC(array(2))
+
+ CALL util_stride_1d(f_out, elemsize, p1, p2)
+
+ CALL ASSERT_EQUAL(f_out, 1)
+ END SUBROUTINE TEST_util_stride_1d
+
+ SUBROUTINE TEST_util_stride_2d
+ INTEGER(c_int) :: f_out(2), elemsize
+ REAL, DIMENSION(10, 10), TARGET :: array
+ TYPE(c_ptr) :: p1, p2, p3
+
+ CALL TAG_TEST("util_stride_2d")
+ array = RESHAPE([(i, i=1, 100)], [10, 10])
+ elemsize = C_SIZEOF(array(1, 1))
+ p1 = C_LOC(array(1, 1))
+ p2 = C_LOC(array(2, 1))
+ p3 = C_LOC(array(1, 2))
+
+ CALL util_stride_2d(f_out, elemsize, p1, p2, p3)
+
+ CALL ASSERT_EQUAL(f_out(1), 1)
+ CALL ASSERT_EQUAL(f_out(2), 10)
+ END SUBROUTINE TEST_util_stride_2d
+END MODULE test_mo_util_stride
--
GitLab