summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5T_F03.f90
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2012-10-03 00:53:21 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2012-10-03 00:53:21 (GMT)
commit3e59374ccd0c7cbb671dc72c34ec1a6a9123bc5b (patch)
tree41023f4827cb254156451092cd4e43ab16fd85f4 /fortran/test/tH5T_F03.f90
parent7648354b80e5e914f99cb6dece5d38d354c5c736 (diff)
downloadhdf5-3e59374ccd0c7cbb671dc72c34ec1a6a9123bc5b.zip
hdf5-3e59374ccd0c7cbb671dc72c34ec1a6a9123bc5b.tar.gz
hdf5-3e59374ccd0c7cbb671dc72c34ec1a6a9123bc5b.tar.bz2
[svn-r22854] Fixed issues with default 8-byte real and default 8-byte integers and the new H5O routines.
Tested: jam (gcc,intel)
Diffstat (limited to 'fortran/test/tH5T_F03.f90')
-rw-r--r--fortran/test/tH5T_F03.f9012
1 files changed, 8 insertions, 4 deletions
diff --git a/fortran/test/tH5T_F03.f90 b/fortran/test/tH5T_F03.f90
index dbd8b0a..1c4da8b 100644
--- a/fortran/test/tH5T_F03.f90
+++ b/fortran/test/tH5T_F03.f90
@@ -2918,8 +2918,9 @@ SUBROUTINE setup_buffer(data_in, line_lengths, char_type)
INTEGER, DIMENSION(1:3) :: letters
CHARACTER(LEN=3) :: lets
CHARACTER(KIND=C_CHAR,LEN=*) :: char_type
+ CHARACTER(KIND=C_CHAR,LEN=1) :: char_tmp
INTEGER :: i, j, n, ff
-
+
! Convert the letters and special character to integers
lets = 'abc'
@@ -2929,15 +2930,18 @@ SUBROUTINE setup_buffer(data_in, line_lengths, char_type)
j = 1
DO i=1,n-1
IF( j .EQ. 4 )THEN
- WRITE(data_in(i:i),'(A1)') ff
+ WRITE(char_tmp,'(A1)') ff
+ data_in(i:i) = char_tmp
ELSE
- WRITE(data_in(i:i),'(A1)') letters(j)
+ WRITE(char_tmp,'(A1)') letters(j)
+ data_in(i:i) = char_tmp
ENDIF
line_lengths(i) = LEN_TRIM(data_in(i))
j = j + 1
IF( j .EQ. 5 ) j = 1
END DO
- WRITE(data_in(n:n),'(A1)') ff
+ WRITE(char_tmp,'(A1)') ff
+ data_in(n:n) = char_tmp
line_lengths(n) = 1
END SUBROUTINE setup_buffer