summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-06-10 16:45:07 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-06-10 16:45:07 (GMT)
commit202ea3747ebc1bca71c455ca083492960f032ec5 (patch)
tree43df4f4d8073ca0ede5c2cccdc5428fa70939bd8
parent7a496037323aae440087a2d9aec726b41d1b5125 (diff)
downloadhdf5-202ea3747ebc1bca71c455ca083492960f032ec5.zip
hdf5-202ea3747ebc1bca71c455ca083492960f032ec5.tar.gz
hdf5-202ea3747ebc1bca71c455ca083492960f032ec5.tar.bz2
[svn-r27184] added case for real*16 when C does not have that precision
-rw-r--r--fortran/src/H5match_types.c7
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 *\/ */