diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-04-08 00:18:20 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-04-08 00:18:20 (GMT) |
| commit | ff9a10cfdacfd30fc1720b7c82bc28d204b76ce2 (patch) | |
| tree | 2e7c07b41caace92775d8162012d94e79b4df029 /fortran/test/tH5VL.f90 | |
| parent | 67a61ed22f31b9af0ace476b0cc58d7236bb9ac3 (diff) | |
| download | hdf5-ff9a10cfdacfd30fc1720b7c82bc28d204b76ce2.zip hdf5-ff9a10cfdacfd30fc1720b7c82bc28d204b76ce2.tar.gz hdf5-ff9a10cfdacfd30fc1720b7c82bc28d204b76ce2.tar.bz2 | |
[svn-r24984] Added overload operatorZ to compare REALs for tests.
Tested on jam (gfortran, (-r8))
Diffstat (limited to 'fortran/test/tH5VL.f90')
| -rw-r--r-- | fortran/test/tH5VL.f90 | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/fortran/test/tH5VL.f90 b/fortran/test/tH5VL.f90 index d34b42c..6803f59 100644 --- a/fortran/test/tH5VL.f90 +++ b/fortran/test/tH5VL.f90 @@ -226,7 +226,6 @@ CONTAINS INTEGER(SIZE_T) max_len INTEGER(HID_T) :: vl_type_id LOGICAL :: vl_flag - LOGICAL :: differ ! ! Initialize the vl_int_data array. @@ -331,11 +330,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.(vl_real_data(jh,ih) .REALEQ. vl_real_data_out(jh,ih)) ) 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 |