summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5VL.f90
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2014-04-08 01:00:24 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2014-04-08 01:00:24 (GMT)
commitd1f2b1a682213d98db080e91c09d3f95b4f2b3b0 (patch)
tree3f38c808358221ffbe9232ba1c23ebe439bfdb30 /fortran/test/tH5VL.f90
parentff9a10cfdacfd30fc1720b7c82bc28d204b76ce2 (diff)
downloadhdf5-d1f2b1a682213d98db080e91c09d3f95b4f2b3b0.zip
hdf5-d1f2b1a682213d98db080e91c09d3f95b4f2b3b0.tar.gz
hdf5-d1f2b1a682213d98db080e91c09d3f95b4f2b3b0.tar.bz2
[svn-r24985] reverted the r24984 update.
Diffstat (limited to 'fortran/test/tH5VL.f90')
-rw-r--r--fortran/test/tH5VL.f9010
1 files changed, 6 insertions, 4 deletions
diff --git a/fortran/test/tH5VL.f90 b/fortran/test/tH5VL.f90
index 6803f59..d34b42c 100644
--- a/fortran/test/tH5VL.f90
+++ b/fortran/test/tH5VL.f90
@@ -226,6 +226,7 @@ CONTAINS
INTEGER(SIZE_T) max_len
INTEGER(HID_T) :: vl_type_id
LOGICAL :: vl_flag
+ LOGICAL :: differ
!
! Initialize the vl_int_data array.
@@ -330,10 +331,11 @@ CONTAINS
CALL check("h5dread_real_f", error, total_error)
do ih = 1, data_dims(2)
do jh = 1, len_out(ih)
- 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
+ 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
enddo
if (len(ih) .ne. len_out(ih)) then
total_error = total_error + 1