diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-04-08 19:34:42 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-04-08 19:34:42 (GMT) |
commit | 9cd1a1bb60c66650208033d61ff377df5ac1a72e (patch) | |
tree | 1983e8fbd82c084d515a6dd1554b094a44123811 /fortran/test/tH5VL.f90 | |
parent | d1f2b1a682213d98db080e91c09d3f95b4f2b3b0 (diff) | |
download | hdf5-9cd1a1bb60c66650208033d61ff377df5ac1a72e.zip hdf5-9cd1a1bb60c66650208033d61ff377df5ac1a72e.tar.gz hdf5-9cd1a1bb60c66650208033d61ff377df5ac1a72e.tar.bz2 |
[svn-r24986] Comparing REALs now converts all REALs to double precision and then compares if the two numbers are equivalent.
Tested: jam (gnu, intel)
Diffstat (limited to 'fortran/test/tH5VL.f90')
-rw-r--r-- | fortran/test/tH5VL.f90 | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/fortran/test/tH5VL.f90 b/fortran/test/tH5VL.f90 index d34b42c..f063722 100644 --- a/fortran/test/tH5VL.f90 +++ b/fortran/test/tH5VL.f90 @@ -331,11 +331,10 @@ CONTAINS CALL check("h5dread_real_f", error, total_error) do ih = 1, data_dims(2) do jh = 1, len_out(ih) - CALL compare_floats(vl_real_data(jh,ih), vl_real_data_out(jh,ih), differ) - if(differ) then - total_error = total_error + 1 - write(*,*) "h5dread_vl_f returned incorrect data" - endif + IF( .NOT.dreal_eq( REAL(vl_real_data(jh,ih),dp), REAL(vl_real_data_out(jh,ih), dp)) ) THEN + total_error = total_error + 1 + WRITE(*,*) "h5dread_vl_f returned incorrect data" + ENDIF enddo if (len(ih) .ne. len_out(ih)) then total_error = total_error + 1 |