diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-13 18:23:35 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-13 18:23:35 (GMT) |
commit | ec4ae5213b66274287844b2e05340f342c7c3231 (patch) | |
tree | 1496212ce0300972a37f6cfe8146aeedf354ce67 /fortran/test/tH5A_1_8.f90 | |
parent | ea20e67829f70c4d3cb0452005bec864bfa78f8b (diff) | |
download | hdf5-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.f90 | 2 |
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) |