diff options
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/test/tf_F08.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/test/tf_F08.f90 b/fortran/test/tf_F08.f90 index 20c2859..fb2e392 100644 --- a/fortran/test/tf_F08.f90 +++ b/fortran/test/tf_F08.f90 @@ -72,7 +72,8 @@ CONTAINS IMPLICIT NONE TYPE(comp_datatype), INTENT(in) :: a - H5_SIZEOF_CMPD = C_SIZEOF(a) + !H5_SIZEOF_CMPD = C_SIZEOF(a) + H5_SIZEOF_CMPD = storage_size(a, c_size_t)/storage_size(c_char_'a',c_size_t) END FUNCTION H5_SIZEOF_CMPD |