From 7d692f042b6e8354fbe52d8b6bdcf971914a1c8c Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Fri, 24 Apr 2015 16:42:05 -0500
Subject: [svn-r26920] fixed typo

---
 fortran/src/H5test_kind.F90 | 4 ++--
 1 file 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)
-- 
cgit v0.12