diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-09-29 16:52:12 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-09-29 16:52:12 (GMT) |
| commit | 9fbebbe6d7c1b873006e24b8b21c88b3d7ba9ab8 (patch) | |
| tree | eb9bac1cb19e623328c0b1c5c936d048123233e8 /fortran/test/tf.F90 | |
| parent | c28c6873fedb6a4bec9dfa500d8648610c7ba88f (diff) | |
| download | hdf5-9fbebbe6d7c1b873006e24b8b21c88b3d7ba9ab8.zip hdf5-9fbebbe6d7c1b873006e24b8b21c88b3d7ba9ab8.tar.gz hdf5-9fbebbe6d7c1b873006e24b8b21c88b3d7ba9ab8.tar.bz2 | |
Fixed: Fortran_DOUBLE was being set to C_LONG_DOUBLE when C_LONG_DOUBLE is not available.
Diffstat (limited to 'fortran/test/tf.F90')
| -rw-r--r-- | fortran/test/tf.F90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90 index 219254b..8797cc3 100644 --- a/fortran/test/tf.F90 +++ b/fortran/test/tf.F90 @@ -40,7 +40,8 @@ MODULE TH5_MISC INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(10) ! This should map to REAL*8 on most modern processors ! generic compound datatype - TYPE, BIND(C) :: comp_datatype + TYPE :: comp_datatype + SEQUENCE REAL :: a INTEGER :: x DOUBLE PRECISION :: y |