From 202ea3747ebc1bca71c455ca083492960f032ec5 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Wed, 10 Jun 2015 11:45:07 -0500
Subject: [svn-r27184] added case for real*16 when C does not have that
 precision

---
 fortran/src/H5match_types.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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 *\/ */
-- 
cgit v0.12