diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-09 17:05:09 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-09 17:05:09 (GMT) |
| commit | 62401ac7c61dc71ea5980e44e895ab757df15a01 (patch) | |
| tree | 48eb78e17c07ad2485642d555c47733dff1cfd80 /fortran/src/H5_ff.F90 | |
| parent | 32703c9fc5a315a005abf26965d5545043fd3605 (diff) | |
| download | hdf5-62401ac7c61dc71ea5980e44e895ab757df15a01.zip hdf5-62401ac7c61dc71ea5980e44e895ab757df15a01.tar.gz hdf5-62401ac7c61dc71ea5980e44e895ab757df15a01.tar.bz2 | |
[svn-r27167] more DT fixes
Diffstat (limited to 'fortran/src/H5_ff.F90')
| -rw-r--r-- | fortran/src/H5_ff.F90 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/fortran/src/H5_ff.F90 b/fortran/src/H5_ff.F90 index 7939644..3ef6331 100644 --- a/fortran/src/H5_ff.F90 +++ b/fortran/src/H5_ff.F90 @@ -389,8 +389,10 @@ CONTAINS h5_type = H5T_NATIVE_REAL_C_FLOAT ELSE IF(kind.EQ.Fortran_REAL_C_DOUBLE)THEN h5_type = H5T_NATIVE_REAL_C_DOUBLE +#if H5_FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0 ELSE IF(kind.EQ.Fortran_REAL_C_LONG_DOUBLE)THEN h5_type = H5T_NATIVE_REAL_C_LONG_DOUBLE +#endif #if H5_PAC_FC_MAX_REAL_PRECISION > 28 #ifdef H5_HAVE_FLOAT128 ELSE IF(kind.EQ.Fortran_REAL_C_FLOAT128)THEN |