summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2016-02-19 20:39:11 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2016-02-19 20:39:11 (GMT)
commit553374e665ac2a8ed1e9ebf412b234f50123f12d (patch)
tree47b9ff0057ee113730cae2b33f5026d392e5c9c9 /fortran/src
parent5126111606cf941ead418a81be4a18eb78dd0236 (diff)
downloadhdf5-553374e665ac2a8ed1e9ebf412b234f50123f12d.zip
hdf5-553374e665ac2a8ed1e9ebf412b234f50123f12d.tar.gz
hdf5-553374e665ac2a8ed1e9ebf412b234f50123f12d.tar.bz2
[svn-r29169] Changed #ifdef to use H5_FORTRAN_C_LONG_DOUBLE_IS_UNIQUE instead of H5_FORTRAN_HAVE_C_LONG_DOUBLE
Tested: jam (gnu)
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Dff.F904
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Dff.F90 b/fortran/src/H5Dff.F90
index b372dc1..cb0b292 100644
--- a/fortran/src/H5Dff.F90
+++ b/fortran/src/H5Dff.F90
@@ -172,7 +172,7 @@ MODULE H5D
MODULE PROCEDURE h5dfill_integer
MODULE PROCEDURE h5dfill_c_float
MODULE PROCEDURE h5dfill_c_double
-#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if H5_FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
MODULE PROCEDURE h5dfill_c_long_double
#endif
MODULE PROCEDURE h5dfill_char
@@ -1753,7 +1753,7 @@ CONTAINS
END SUBROUTINE h5dfill_c_double
-#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if H5_FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
SUBROUTINE h5dfill_c_long_double(fill_value, space_id, buf, hdferr)
IMPLICIT NONE
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), TARGET :: fill_value ! Fill value