Skip to content
Snippets Groups Projects

Draft: add test for util_stride

Open Jonas Jucker requested to merge test_util_stride into master
1 file
+ 3
3
Compare changes
  • Side-by-side
  • Inline
@@ -11,7 +11,7 @@
MODULE test_mo_util_stride
USE FORTUTF
USE ISO_C_BINDING, ONLY: c_int, c_ptr, c_loc, c_size_t
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
@@ -21,7 +21,7 @@ CONTAINS
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 = SIZEOF(array(1))
elemsize = C_SIZEOF(array(1))
p1 = C_LOC(array(1))
p2 = C_LOC(array(2))
@@ -37,7 +37,7 @@ CONTAINS
CALL TAG_TEST("util_stride_2d")
array = RESHAPE([(i, i=1, 100)], [10, 10])
elemsize = SIZEOF(array(1, 1))
elemsize = C_SIZEOF(array(1, 1))
p1 = C_LOC(array(1, 1))
p2 = C_LOC(array(2, 1))
p3 = C_LOC(array(1, 2))
Loading