diff options
author | Dana Robinson <derobins@hdfgroup.org> | 2016-09-14 21:02:43 (GMT) |
---|---|---|
committer | Dana Robinson <derobins@hdfgroup.org> | 2016-09-14 21:02:43 (GMT) |
commit | 7f817fea7c50cea4305bc14fcaf4d80fb3dc42e4 (patch) | |
tree | e18b6cefc2cc51c58ebacec1d6a9051742754f71 /fortran | |
parent | c1c384878ba58193120c3da804d761542c47bd7d (diff) | |
parent | 052efd9bde06ea2427beffd3ea493cbc53a17608 (diff) | |
download | hdf5-7f817fea7c50cea4305bc14fcaf4d80fb3dc42e4.zip hdf5-7f817fea7c50cea4305bc14fcaf4d80fb3dc42e4.tar.gz hdf5-7f817fea7c50cea4305bc14fcaf4d80fb3dc42e4.tar.bz2 |
Merge branch 'develop' into evict_on_close
Diffstat (limited to 'fortran')
-rw-r--r-- | fortran/test/tf.F90 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90 index e9baf43..219254b 100644 --- a/fortran/test/tf.F90 +++ b/fortran/test/tf.F90 @@ -339,7 +339,11 @@ CONTAINS #ifdef H5_FORTRAN_HAVE_C_SIZEOF H5_SIZEOF_CMPD = C_SIZEOF(a) #else - H5_SIZEOF_CMPD = 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 + H5_SIZEOF_CMPD = SIZEOF(a) +# endif #endif END FUNCTION H5_SIZEOF_CMPD |