mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r26920] fixed typo

Browse Source
This commit is contained in:
Scot Breitenfeld 2015-04-24 16:42:05 -05:00
parent b8b7d33f41
commit 7d692f042b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/src/H5test_kind.F90
View File

@ -53,7 +53,7 @@ PROGRAM test_kind
IMPLICIT NONE
INTEGER :: i, j, ii, ir, last, ikind_numbers(10), rkind_numbers(10)
INTEGER :: ji, jr, jd
#ifdef HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
REAL(KIND=C_LONG_DOUBLE) :: c_longdble
#endif
REAL(KIND=C_DOUBLE) :: c_dble
@ -249,7 +249,7 @@ WRITE(*,'(40(A,/))') &
j = rkind_numbers(i)
WRITE(*, "("" CALL r"", i2.2,""()"")") j
ENDDO
#ifdef HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
# ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
sizeof_var = STORAGE_SIZE(c_longdble, c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t)