diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-24 21:42:05 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-24 21:42:05 (GMT) |
| commit | 7d692f042b6e8354fbe52d8b6bdcf971914a1c8c (patch) | |
| tree | 0c5943c6cc30621bcd851c88e175d95b97c3acb9 | |
| parent | b8b7d33f4100e4bf5e01bf169411d33114949556 (diff) | |
| download | hdf5-7d692f042b6e8354fbe52d8b6bdcf971914a1c8c.zip hdf5-7d692f042b6e8354fbe52d8b6bdcf971914a1c8c.tar.gz hdf5-7d692f042b6e8354fbe52d8b6bdcf971914a1c8c.tar.bz2 | |
[svn-r26920] fixed typo
| -rw-r--r-- | fortran/src/H5test_kind.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5test_kind.F90 b/fortran/src/H5test_kind.F90 index 3ad1a66..e3fd97d 100644 --- a/fortran/src/H5test_kind.F90 +++ b/fortran/src/H5test_kind.F90 @@ -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) |