mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-04-06 17:20:42 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r30259] Fixed: HDFFV-9965: HDF5 Fails to build when sizeof or c_sizeof is not available in Fortran

Browse Source 
Added the use of 'storage_size' if 'c_sizeof' is not available.

Tested (jelly, intel)
This commit is contained in:
Scot Breitenfeld 2016-08-05 13:30:53 -05:00
parent f0365885b4
commit a4e4094c76
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fortran/test/tf.F90
View File

@ -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