diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-02-19 20:39:11 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-02-19 20:39:11 (GMT) |
| commit | 553374e665ac2a8ed1e9ebf412b234f50123f12d (patch) | |
| tree | 47b9ff0057ee113730cae2b33f5026d392e5c9c9 | |
| parent | 5126111606cf941ead418a81be4a18eb78dd0236 (diff) | |
| download | hdf5-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)
| -rw-r--r-- | fortran/src/H5Dff.F90 | 4 |
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 |