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 | |
| 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')
| -rw-r--r-- | fortran/test/tH5T_F03.F90 | 4 | ||||
| -rw-r--r-- | fortran/test/tf.F90 | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/fortran/test/tH5T_F03.F90 b/fortran/test/tH5T_F03.F90 index a9148a7..c8be606 100644 --- a/fortran/test/tH5T_F03.F90 +++ b/fortran/test/tH5T_F03.F90 @@ -66,6 +66,7 @@ SUBROUTINE test_array_compound_atomic(total_error) CHARACTER(LEN=10), PARAMETER :: FILENAME = "tarray1.h5" TYPE s1_t + SEQUENCE INTEGER :: i REAL :: f END TYPE s1_t @@ -298,7 +299,8 @@ END SUBROUTINE test_array_compound_atomic INTEGER, PARAMETER :: SPACE1_DIM1 = 4 CHARACTER(LEN=10), PARAMETER :: FILENAME = "tarray2.h5" - TYPE st_t_struct ! Typedef for compound datatype + TYPE st_t_struct ! Typedef for compound datatype + SEQUENCE INTEGER :: i REAL, DIMENSION(1:ARRAY2_DIM1) :: f CHARACTER(LEN=2), DIMENSION(1:ARRAY2_DIM1) :: c 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 |