diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-05-27 22:07:18 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-05-27 22:07:18 (GMT) |
| commit | 244784ab2cf816b135f27bf03b5a4fb91502aed9 (patch) | |
| tree | 1ec533dc1c9d680a53152df36a63cdf604595f28 /fortran/test/tf.F90 | |
| parent | b15fc6e4a0b7a5f35c68742de8ceb8dabcb7bad0 (diff) | |
| download | hdf5-244784ab2cf816b135f27bf03b5a4fb91502aed9.zip hdf5-244784ab2cf816b135f27bf03b5a4fb91502aed9.tar.gz hdf5-244784ab2cf816b135f27bf03b5a4fb91502aed9.tar.bz2 | |
[svn-r27115] Moved testing KINDs and SIZEOFs to configure.
Diffstat (limited to 'fortran/test/tf.F90')
| -rw-r--r-- | fortran/test/tf.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90 index ba4f492..505d945 100644 --- a/fortran/test/tf.F90 +++ b/fortran/test/tf.F90 @@ -76,7 +76,7 @@ CONTAINS !DEC$endif SUBROUTINE verify_real_kind_7(string,value,correct_value,total_error) USE HDF5 - INTEGER, PARAMETER :: real_kind_7 = SELECTED_REAL_KIND(Fortran_REAL_4) !should map to REAL*4 on most modern processors + INTEGER, PARAMETER :: real_kind_7 = SELECTED_REAL_KIND(Fortran_REAL_C_FLOAT) !should map to REAL*4 on most modern processors CHARACTER(LEN=*) :: string REAL(real_kind_7) :: value, correct_value INTEGER :: total_error |