diff options
| author | Dana Robinson <derobins@hdfgroup.org> | 2020-08-16 22:00:40 (GMT) |
|---|---|---|
| committer | Dana Robinson <derobins@hdfgroup.org> | 2020-08-16 22:00:40 (GMT) |
| commit | f2044e0807f57416932afd5bc800e9e32042c0c8 (patch) | |
| tree | 5446835925171ec672789edffd2e13e3821bbc18 /fortran/src/H5match_types.c | |
| parent | 4312f5ea1a611cef01e9ecfb57d7c287c9549249 (diff) | |
| download | hdf5-f2044e0807f57416932afd5bc800e9e32042c0c8.zip hdf5-f2044e0807f57416932afd5bc800e9e32042c0c8.tar.gz hdf5-f2044e0807f57416932afd5bc800e9e32042c0c8.tar.bz2 | |
Brings fortran changes from develop
Diffstat (limited to 'fortran/src/H5match_types.c')
| -rw-r--r-- | fortran/src/H5match_types.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c index 47ba3cd..d31d1ba 100644 --- a/fortran/src/H5match_types.c +++ b/fortran/src/H5match_types.c @@ -153,7 +153,9 @@ int main(void) int FORTRAN_NUM_INTEGER_KINDS=H5_FORTRAN_NUM_INTEGER_KINDS; int H5_FORTRAN_NUM_REAL_KINDS; +#if H5_FORTRAN_HAVE_C_LONG_DOUBLE!=0 int found_long_double = 0; +#endif /* Open target files */ c_header = fopen(CFILE, "w"); @@ -414,7 +416,7 @@ int main(void) return -1; } - /* Need the buffer size for the fortran derive type 'hdset_reg_ref_t_f03' + /* Need the buffer size for the fortran derived type 'hdset_reg_ref_t_f03' * in order to be interoperable with C's structure, the C buffer size * H5R_DSET_REG_REF_BUF_SIZE is (sizeof(haddr_t)+4) */ |