summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-24 21:42:05 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-24 21:42:05 (GMT)
commit7d692f042b6e8354fbe52d8b6bdcf971914a1c8c (patch)
tree0c5943c6cc30621bcd851c88e175d95b97c3acb9 /fortran
parentb8b7d33f4100e4bf5e01bf169411d33114949556 (diff)
downloadhdf5-7d692f042b6e8354fbe52d8b6bdcf971914a1c8c.zip
hdf5-7d692f042b6e8354fbe52d8b6bdcf971914a1c8c.tar.gz
hdf5-7d692f042b6e8354fbe52d8b6bdcf971914a1c8c.tar.bz2
[svn-r26920] fixed typo
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5test_kind.F904
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)