diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-22 19:31:58 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-22 19:31:58 (GMT) |
| commit | bf47c596a5819249e427fa80724fe9c88fb9c5c2 (patch) | |
| tree | 6a1fd335db6bfd46cf73ee773c07241ab600e293 | |
| parent | ab5e55bbf270172ccfa833e0068eaa2a0ccd7e07 (diff) | |
| download | hdf5-bf47c596a5819249e427fa80724fe9c88fb9c5c2.zip hdf5-bf47c596a5819249e427fa80724fe9c88fb9c5c2.tar.gz hdf5-bf47c596a5819249e427fa80724fe9c88fb9c5c2.tar.bz2 | |
[svn-r26887] Fixed Function H5_SIZEOF_CHAR and assumed sized character length.
| -rw-r--r-- | fortran/test/tf.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90 index 109c62e..4dc339f 100644 --- a/fortran/test/tf.F90 +++ b/fortran/test/tf.F90 @@ -458,12 +458,12 @@ CONTAINS !DEC$endif INTEGER(C_SIZE_T) FUNCTION H5_SIZEOF_CHR(a) IMPLICIT NONE - CHARACTER(LEN=*), INTENT(in) :: a + CHARACTER(LEN=1), INTENT(in) :: a #ifdef H5_FORTRAN_HAVE_STORAGE_SIZE - H5_SIZEOF_CHR = storage_size(a(1:1), c_size_t)/storage_size(c_char_'a',c_size_t) + H5_SIZEOF_CHR = storage_size(a, c_size_t)/storage_size(c_char_'a',c_size_t) #else - H5_SIZEOF_CHR = SIZEOF(a(1:1)) + H5_SIZEOF_CHR = SIZEOF(a) #endif END FUNCTION H5_SIZEOF_CHR |