diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2013-03-05 05:06:59 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2013-03-05 05:06:59 (GMT) |
| commit | ebb18c51862f36cfad5da44a5fb42d18f9a44856 (patch) | |
| tree | ed1622c74ca6a21f8a409d41e871fe80dbea9acb /fortran/src/H5match_types.c | |
| parent | 1cffcb401afa5ec6f7a6135bf107b190fa75ccdf (diff) | |
| download | hdf5-ebb18c51862f36cfad5da44a5fb42d18f9a44856.zip hdf5-ebb18c51862f36cfad5da44a5fb42d18f9a44856.tar.gz hdf5-ebb18c51862f36cfad5da44a5fb42d18f9a44856.tar.bz2 | |
[svn-r23325] Description
------------
Fix for:
HDFFV-8149: h5pset_external_f API - the offset is declared integer which can cause problem if use 64-bit integer
Added new type off_t, modified source files and added a new test.
Tested (jam, intel, gnu)
Diffstat (limited to 'fortran/src/H5match_types.c')
| -rw-r--r-- | fortran/src/H5match_types.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c index 4c83d21..eb30775 100644 --- a/fortran/src/H5match_types.c +++ b/fortran/src/H5match_types.c @@ -321,6 +321,19 @@ int main(void) return -1; #endif + /* off_t */ +#if defined H5_FORTRAN_HAS_INTEGER_8_KIND && H5_SIZEOF_OFF_T >= 8 + writeToFiles("OFF_T", "off_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND); +#elif defined H5_FORTRAN_HAS_INTEGER_4_KIND && H5_SIZEOF_OFF_T >= 4 + writeToFiles("OFF_T", "off_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND); +#elif defined H5_FORTRAN_HAS_INTEGER_2_KIND && H5_SIZEOF_OFF_T >= 2 + writeToFiles("OFF_T", "off_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND); +#elif defined H5_FORTRAN_HAS_INTEGER_1_KIND && H5_SIZEOF_OFF_T >= 1 + writeToFiles("OFF_T", "off_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND); +#else + /* Error: couldn't find a size for off_t */ + return -1; +#endif /* size_t */ #if defined H5_FORTRAN_HAS_INTEGER_8_KIND && H5_SIZEOF_SIZE_T >= 8 |