summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5A_1_8.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-05-13 18:23:35 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-05-13 18:23:35 (GMT)
commitec4ae5213b66274287844b2e05340f342c7c3231 (patch)
tree1496212ce0300972a37f6cfe8146aeedf354ce67 /fortran/test/tH5A_1_8.f90
parentea20e67829f70c4d3cb0452005bec864bfa78f8b (diff)
downloadhdf5-ec4ae5213b66274287844b2e05340f342c7c3231.zip
hdf5-ec4ae5213b66274287844b2e05340f342c7c3231.tar.gz
hdf5-ec4ae5213b66274287844b2e05340f342c7c3231.tar.bz2
[svn-r14991] Maintenance: Fixed some bugs discovered by daily testing and by manual testing using -i8 flag
Platforms tested: linew (as for daily tests), icc and pgf90 with -i8 on kagiso; g95 has the problem with -i8 (will be looking into the problem)
Diffstat (limited to 'fortran/test/tH5A_1_8.f90')
-rw-r--r--fortran/test/tH5A_1_8.f902
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/tH5A_1_8.f90 b/fortran/test/tH5A_1_8.f90
index 7af492d..f038fe7 100644
--- a/fortran/test/tH5A_1_8.f90
+++ b/fortran/test/tH5A_1_8.f90
@@ -2984,7 +2984,6 @@ SUBROUTINE test_attr_dense_open( fcpl, fapl, total_error)
! /* Add attributes, until just before converting to dense storage */
- write(*,*) max_compact
DO u = 0, max_compact - 1
! /* Create attribute */
WRITE(chr2,'(I2.2)') u
@@ -3718,6 +3717,7 @@ SUBROUTINE attr_open_check(fid, dsetname, obj_id, max_attrs, total_error )
CALL VERIFY("h5aget_info_f.cset", cset, H5T_CSET_ASCII_F, total_error)
CALL h5aget_storage_size_f(attr_id, storage_size, error)
CALL check("h5aget_storage_size_f",error,total_error)
+
CALL VERIFY("h5aget_info_f.data_size", INT(data_size), INT(storage_size), total_error)