Skip to content
Snippets Groups Projects
Commit 26b12832 authored by Jonas Jucker's avatar Jonas Jucker Committed by Yen-Chen Chen
Browse files

use c_sizeof instead of SIZEOF

parent 64500971
No related branches found
No related tags found
1 merge request!64Draft: add test for util_stride
...@@ -11,7 +11,7 @@ ...@@ -11,7 +11,7 @@
MODULE test_mo_util_stride MODULE test_mo_util_stride
USE FORTUTF 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 USE mo_util_stride
CONTAINS CONTAINS
SUBROUTINE TEST_util_stride_1d SUBROUTINE TEST_util_stride_1d
...@@ -21,7 +21,7 @@ CONTAINS ...@@ -21,7 +21,7 @@ CONTAINS
CALL TAG_TEST("util_stride_1d") 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] 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)) p1 = C_LOC(array(1))
p2 = C_LOC(array(2)) p2 = C_LOC(array(2))
...@@ -37,7 +37,7 @@ CONTAINS ...@@ -37,7 +37,7 @@ CONTAINS
CALL TAG_TEST("util_stride_2d") CALL TAG_TEST("util_stride_2d")
array = RESHAPE([(i, i=1, 100)], [10, 10]) 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)) p1 = C_LOC(array(1, 1))
p2 = C_LOC(array(2, 1)) p2 = C_LOC(array(2, 1))
p3 = C_LOC(array(1, 2)) p3 = C_LOC(array(1, 2))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment