From 26b128323e692cccf1b150d9fac682a991c864f8 Mon Sep 17 00:00:00 2001
From: Jonas Jucker <jonas.jucker@c2sm.ethz.ch>
Date: Tue, 30 Jan 2024 18:37:23 +0100
Subject: [PATCH] use c_sizeof instead of SIZEOF
---
test/fortran/test_util_stride.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/test/fortran/test_util_stride.f90 b/test/fortran/test_util_stride.f90
index 5772aaa..de905d3 100644
--- a/test/fortran/test_util_stride.f90
+++ b/test/fortran/test_util_stride.f90
@@ -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))
--
GitLab