diff --git a/test/fortran/test_util_stride.f90 b/test/fortran/test_util_stride.f90 deleted file mode 100644 index de905d31912de5b200ba7fb3c31b1b92dad5f946..0000000000000000000000000000000000000000 --- a/test/fortran/test_util_stride.f90 +++ /dev/null @@ -1,50 +0,0 @@ -! 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