diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2018-12-05 16:45:54 (GMT) |
---|---|---|
committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-01-08 17:24:00 (GMT) |
commit | b4d4d371a03158c39f120b1bde6c4bd51f1b2eb6 (patch) | |
tree | fd81974907db8ef81d681038d5795ea70827a1ef /fortran/src/H5match_types.c | |
parent | 1421059cfba7af05bb4a675820e9c5a6a73e77fe (diff) | |
download | hdf5-b4d4d371a03158c39f120b1bde6c4bd51f1b2eb6.zip hdf5-b4d4d371a03158c39f120b1bde6c4bd51f1b2eb6.tar.gz hdf5-b4d4d371a03158c39f120b1bde6c4bd51f1b2eb6.tar.bz2 |
HDFFV-10443: Add "field" parameter to H5Oinfo* and H5Ovisit* APIs.
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 7e0b7e8..57f7dda 100644 --- a/fortran/src/H5match_types.c +++ b/fortran/src/H5match_types.c @@ -191,6 +191,8 @@ int main(void) } if(sizeof(size_t) == IntKinds_SizeOf[i]) writeTypedef("size_t", "size_t", IntKinds[i]); + if(sizeof(time_t) == IntKinds_SizeOf[i]) + writeTypedef("time_t", "time_t", IntKinds[i]); if(sizeof(hsize_t) == IntKinds_SizeOf[i]) writeTypedef("hsize_t", "hsize_t", IntKinds[i]); } @@ -306,6 +308,17 @@ int main(void) return -1; } + /* time_t */ + for(i=0;i< FORTRAN_NUM_INTEGER_KINDS;i++) { + if(IntKinds_SizeOf[i] == H5_SIZEOF_TIME_T) { + writeToFiles("time_t","TIME_T", "time_t_f", IntKinds[i]); + break; + } + if(i == (FORTRAN_NUM_INTEGER_KINDS-1) ) + /* Error: couldn't find a size for time_t */ + return -1; + } + /* int */ writeToFiles("int","Fortran_INTEGER", "int_f", H5_FORTRAN_NATIVE_INTEGER_KIND); |