diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2018-12-12 21:39:18 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-01-10 23:10:05 (GMT) |
| commit | 6e489435e9ca484a4927d3bb83f2c0058147d7ba (patch) | |
| tree | 8aab3b95bda0cee3ffdd4fa0ea018172fb074fe7 /fortran/src/H5match_types.c | |
| parent | a043211d9edf2df3ea8049bda4be6bdcbf0970e9 (diff) | |
| download | hdf5-6e489435e9ca484a4927d3bb83f2c0058147d7ba.zip hdf5-6e489435e9ca484a4927d3bb83f2c0058147d7ba.tar.gz hdf5-6e489435e9ca484a4927d3bb83f2c0058147d7ba.tar.bz2 | |
merged:
HDFFV-10652
HDFFV-10443
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); |