diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-10 16:45:07 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-10 16:45:07 (GMT) |
| commit | 202ea3747ebc1bca71c455ca083492960f032ec5 (patch) | |
| tree | 43df4f4d8073ca0ede5c2cccdc5428fa70939bd8 /fortran | |
| parent | 7a496037323aae440087a2d9aec726b41d1b5125 (diff) | |
| download | hdf5-202ea3747ebc1bca71c455ca083492960f032ec5.zip hdf5-202ea3747ebc1bca71c455ca083492960f032ec5.tar.gz hdf5-202ea3747ebc1bca71c455ca083492960f032ec5.tar.bz2 | |
[svn-r27184] added case for real*16 when C does not have that precision
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5match_types.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c index 27d314e..cac50ab 100644 --- a/fortran/src/H5match_types.c +++ b/fortran/src/H5match_types.c @@ -226,7 +226,12 @@ int main(void) else if(sizeof(__float128) == RealKinds_SizeOf[i] && found_long_double == 1 && H5_PAC_FC_MAX_REAL_PRECISION > 28) { writeTypedef("float", "__float128", RealKinds[i]); strcpy(Real_C_TYPES[i], "C_FLOAT128"); - } + } +#else + else if(sizeof(long double) == RealKinds_SizeOf[i] && found_long_double == 1 && H5_PAC_FC_MAX_REAL_PRECISION > 28) { + writeTypedef("float", "long double", RealKinds[i]); + strcpy(Real_C_TYPES[i], "C_FLOAT128"); + } #endif /* else { */ /* /\* Did not find the real type, use the next smallest *\/ */ |