From a4e4094c766348c296d0dd8e1af38e28492528bf Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Fri, 5 Aug 2016 13:30:53 -0500
Subject: [svn-r30259] Fixed: HDFFV-9965: HDF5 Fails to build when sizeof or
 c_sizeof is not available in Fortran

Added the use of 'storage_size' if 'c_sizeof' is not available.

Tested (jelly, intel)
---
 fortran/test/tf.F90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90
index e9baf43..219254b 100644
--- a/fortran/test/tf.F90
+++ b/fortran/test/tf.F90
@@ -339,7 +339,11 @@ CONTAINS
 #ifdef H5_FORTRAN_HAVE_C_SIZEOF
     H5_SIZEOF_CMPD = C_SIZEOF(a)
 #else
-    H5_SIZEOF_CMPD = SIZEOF(a)
+#  ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
+     H5_SIZEOF_CMPD = storage_size(a, c_size_t)/storage_size(c_char_'a',c_size_t)
+#  else
+     H5_SIZEOF_CMPD = SIZEOF(a)
+#  endif
 #endif
 
   END FUNCTION H5_SIZEOF_CMPD
-- 
cgit v0.12