From bf47c596a5819249e427fa80724fe9c88fb9c5c2 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Wed, 22 Apr 2015 14:31:58 -0500
Subject: [svn-r26887] Fixed Function H5_SIZEOF_CHAR and assumed sized
 character length.

---
 fortran/test/tf.F90 | 6 +++---
 1 file 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
-- 
cgit v0.12