From f9364c0080405bb36d704eb3f9505029d3da41f4 Mon Sep 17 00:00:00 2001 From: "M. Scot Breitenfeld" Date: Mon, 3 Oct 2016 13:26:39 -0500 Subject: removed the use of C_SIZEOF for non BIND(C) derived type --- fortran/test/tf.F90 | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90 index ee5a857..26b3e99 100644 --- a/fortran/test/tf.F90 +++ b/fortran/test/tf.F90 @@ -340,11 +340,7 @@ CONTAINS #ifdef H5_FORTRAN_HAVE_STORAGE_SIZE H5_SIZEOF_CMPD = storage_size(a, c_size_t)/storage_size(c_char_'a',c_size_t) #else -# ifdef H5_FORTRAN_HAVE_C_SIZEOF - H5_SIZEOF_CMPD = C_SIZEOF(a) -# else - H5_SIZEOF_CMPD = SIZEOF(a) -# endif + H5_SIZEOF_CMPD = SIZEOF(a) #endif END FUNCTION H5_SIZEOF_CMPD -- cgit v0.12