diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-09-29 19:52:26 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-09-29 19:52:26 (GMT) |
| commit | e45ee9fa961b7c375c244757609f297d2cf46eea (patch) | |
| tree | bcc45e720dfca36b087b9d51f118fa85b9149ca1 | |
| parent | cd702dd0515814012093dccb31e9580476c58772 (diff) | |
| download | hdf5-e45ee9fa961b7c375c244757609f297d2cf46eea.zip hdf5-e45ee9fa961b7c375c244757609f297d2cf46eea.tar.gz hdf5-e45ee9fa961b7c375c244757609f297d2cf46eea.tar.bz2 | |
Fixed test to use storage_size instead of c_sizeof when available.
| -rw-r--r-- | fortran/test/tf.F90 | 8 |
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 |