diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-10-03 18:26:39 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-10-03 18:26:39 (GMT) |
| commit | f9364c0080405bb36d704eb3f9505029d3da41f4 (patch) | |
| tree | 6bea4ce8cc3fd8621178298847428bd1c8e7db7a | |
| parent | e45ee9fa961b7c375c244757609f297d2cf46eea (diff) | |
| download | hdf5-f9364c0080405bb36d704eb3f9505029d3da41f4.zip hdf5-f9364c0080405bb36d704eb3f9505029d3da41f4.tar.gz hdf5-f9364c0080405bb36d704eb3f9505029d3da41f4.tar.bz2 | |
removed the use of C_SIZEOF for non BIND(C) derived type
| -rw-r--r-- | fortran/test/tf.F90 | 6 |
1 files changed, 1 insertions, 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 |