summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2016-08-05 18:54:57 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2016-08-05 18:54:57 (GMT)
commit785618f67854476f757e4ce5f69b5638c678e52b (patch)
treeb52a2d393f270254d4841a434099df699a6688c8 /fortran/test
parent613254adca29b7d2c2729c951f70ab0fe34c8f32 (diff)
downloadhdf5-785618f67854476f757e4ce5f69b5638c678e52b.zip
hdf5-785618f67854476f757e4ce5f69b5638c678e52b.tar.gz
hdf5-785618f67854476f757e4ce5f69b5638c678e52b.tar.bz2
[svn-r30260] Fixed: HDFFV-9965: HDF5 Fails to build when sizeof or c_sizeof is not available in Fortran
Added the use of 'storage_size' if 'c_sizeof' is not available. Tested (jelly, intel)
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/tf_F08.f903
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/test/tf_F08.f90 b/fortran/test/tf_F08.f90
index 20c2859..fb2e392 100644
--- a/fortran/test/tf_F08.f90
+++ b/fortran/test/tf_F08.f90
@@ -72,7 +72,8 @@ CONTAINS
IMPLICIT NONE
TYPE(comp_datatype), INTENT(in) :: a
- H5_SIZEOF_CMPD = C_SIZEOF(a)
+ !H5_SIZEOF_CMPD = C_SIZEOF(a)
+ H5_SIZEOF_CMPD = storage_size(a, c_size_t)/storage_size(c_char_'a',c_size_t)
END FUNCTION H5_SIZEOF_CMPD