summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-22 19:31:58 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-22 19:31:58 (GMT)
commitbf47c596a5819249e427fa80724fe9c88fb9c5c2 (patch)
tree6a1fd335db6bfd46cf73ee773c07241ab600e293
parentab5e55bbf270172ccfa833e0068eaa2a0ccd7e07 (diff)
downloadhdf5-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.F906
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