summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorM. Scot Breitenfeld <brtnfld@hdfgroup.org>2016-09-29 19:52:26 (GMT)
committerM. Scot Breitenfeld <brtnfld@hdfgroup.org>2016-09-29 19:52:26 (GMT)
commite45ee9fa961b7c375c244757609f297d2cf46eea (patch)
treebcc45e720dfca36b087b9d51f118fa85b9149ca1 /fortran/test
parentcd702dd0515814012093dccb31e9580476c58772 (diff)
downloadhdf5-e45ee9fa961b7c375c244757609f297d2cf46eea.zip
hdf5-e45ee9fa961b7c375c244757609f297d2cf46eea.tar.gz
hdf5-e45ee9fa961b7c375c244757609f297d2cf46eea.tar.bz2
Fixed test to use storage_size instead of c_sizeof when available.
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/tf.F908
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90
index 8797cc3..ee5a857 100644
--- a/fortran/test/tf.F90
+++ b/fortran/test/tf.F90
@@ -337,11 +337,11 @@ CONTAINS
IMPLICIT NONE
TYPE(comp_datatype), INTENT(in) :: a
-#ifdef H5_FORTRAN_HAVE_C_SIZEOF
- H5_SIZEOF_CMPD = C_SIZEOF(a)
+#ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
+ H5_SIZEOF_CMPD = storage_size(a, c_size_t)/storage_size(c_char_'a',c_size_t)
#else
-# ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
- H5_SIZEOF_CMPD = storage_size(a, c_size_t)/storage_size(c_char_'a',c_size_t)
+# ifdef H5_FORTRAN_HAVE_C_SIZEOF
+ H5_SIZEOF_CMPD = C_SIZEOF(a)
# else
H5_SIZEOF_CMPD = SIZEOF(a)
# endif