diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-08-05 18:54:57 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-08-05 18:54:57 (GMT) |
| commit | 785618f67854476f757e4ce5f69b5638c678e52b (patch) | |
| tree | b52a2d393f270254d4841a434099df699a6688c8 /fortran/test | |
| parent | 613254adca29b7d2c2729c951f70ab0fe34c8f32 (diff) | |
| download | hdf5-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.f90 | 3 |
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 |