summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-07-08 21:10:13 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-07-08 21:10:13 (GMT)
commit5ed3e8a4a773d59b9d8c731551bf7ede05de0fd2 (patch)
tree2c02bb79247bbab0fb31fb94326952e99dbaaf77 /fortran/src
parent93eaaed7221b440aaf1c844d61783d14a6804130 (diff)
downloadhdf5-5ed3e8a4a773d59b9d8c731551bf7ede05de0fd2.zip
hdf5-5ed3e8a4a773d59b9d8c731551bf7ede05de0fd2.tar.gz
hdf5-5ed3e8a4a773d59b9d8c731551bf7ede05de0fd2.tar.bz2
[svn-r27354] fixed #if spec
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5_ff.F902
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/src/H5_ff.F90 b/fortran/src/H5_ff.F90
index 3d954af..3d5f812 100644
--- a/fortran/src/H5_ff.F90
+++ b/fortran/src/H5_ff.F90
@@ -394,7 +394,7 @@ CONTAINS
h5_type = H5T_NATIVE_REAL_C_LONG_DOUBLE
#endif
#if H5_PAC_FC_MAX_REAL_PRECISION > 28
-#if H5_HAVE_FLOAT128 = 1
+#if H5_HAVE_FLOAT128 == 1
ELSE IF(kind.EQ.Fortran_REAL_C_FLOAT128)THEN
h5_type = H5T_NATIVE_FLOAT_128
#endif