diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-05 01:00:37 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-05 01:00:37 (GMT) |
| commit | e182fc3bb89b465640b6428c15abd57e1b3fd8e6 (patch) | |
| tree | 867115a07ae7d9da7f8859590006d47a1a89b610 /fortran/test/tH5G_1_8.f90 | |
| parent | f6069ad57e7ddf4b97e4c40e16d1b09464cf62a5 (diff) | |
| download | hdf5-e182fc3bb89b465640b6428c15abd57e1b3fd8e6.zip hdf5-e182fc3bb89b465640b6428c15abd57e1b3fd8e6.tar.gz hdf5-e182fc3bb89b465640b6428c15abd57e1b3fd8e6.tar.bz2 | |
[svn-r14930] Maintenance: Fixed more bugs/typos and enabled tests that were failing previously on linew.
Currently only one test (dense attributes) is failing. It looks like C library problem and we
have a similar bug report in Bugzilla: when dense storage is used, attributes are not written
to the file; somehow similar C test doesn't expose the problem while Fortran test does.
Platforms tested: linew, kagiso with g95 and PGI
Diffstat (limited to 'fortran/test/tH5G_1_8.f90')
| -rw-r--r-- | fortran/test/tH5G_1_8.f90 | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/fortran/test/tH5G_1_8.f90 b/fortran/test/tH5G_1_8.f90 index a1111cd..d4dd9cd 100644 --- a/fortran/test/tH5G_1_8.f90 +++ b/fortran/test/tH5G_1_8.f90 @@ -47,7 +47,7 @@ SUBROUTINE group_test(cleanup, total_error) ! CALL ud_hard_links(fapl2,total_error) CALL timestamps(cleanup, fapl2, total_error) CALL test_move_preserves(fapl2, total_error) -!EP CALL delete_by_idx(cleanup,fapl2, total_error) + CALL delete_by_idx(cleanup,fapl2, total_error) CALL test_lcpl(cleanup, fapl, total_error) CALL objcopy(fapl, total_error) @@ -1631,6 +1631,7 @@ SUBROUTINE delete_by_idx(cleanup, fapl, total_error) CHARACTER(LEN=80) :: fix_filename1 CHARACTER(LEN=80) :: fix_filename2 INTEGER(SIZE_T) :: size_tmp + INTEGER(HSIZE_T) :: htmp LOGICAL :: cleanup @@ -1731,8 +1732,9 @@ SUBROUTINE delete_by_idx(cleanup, fapl, total_error) ! IF(H5G_has_links_test(group_id, NULL) != TRUE) TEST_ERROR ! /* Check for out of bound deletion */ - - CALL H5Ldelete_by_idx_f(group_id, ".", idx_type, iorder, INT(u,HSIZE_T), error) + htmp =9 +!EP CALL H5Ldelete_by_idx_f(group_id, ".", idx_type, iorder, INT(u,HSIZE_T), error) + CALL H5Ldelete_by_idx_f(group_id, ".", idx_type, iorder, htmp, error) CALL VERIFY("delete_by_idx.H5Ldelete_by_idx_f", error, -1, total_error) ! test should fail (error = -1) @@ -2235,6 +2237,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, & INTEGER(HSIZE_T), DIMENSION(1:2) :: dimsout, maxdimsout ! dimensions INTEGER :: i + INTEGER :: tmp1, tmp2 WRITE(*,*) "link creation property lists (w/new group format)" @@ -2317,8 +2320,14 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, & CALL check("test_lcpl.h5sget_simple_extent_dims_f",error, total_error) DO i = 1, 2 - CALL VERIFY("H5Sget_simple_extent_dims", dimsout(i), extend_dim(i), total_error) - CALL VERIFY("H5Sget_simple_extent_dims", maxdimsout(i), dims(i), total_error) + tmp1 = dimsout(i) + tmp2 = extend_dim(i) +!EP CALL VERIFY("H5Sget_simple_extent_dims", dimsout(i), extend_dim(i), total_error) + CALL VERIFY("H5Sget_simple_extent_dims", tmp1, tmp2, total_error) +!EP CALL VERIFY("H5Sget_simple_extent_dims", maxdimsout(i), dims(i), total_error) + tmp1 = maxdimsout(i) + tmp2 = dims(i) + CALL VERIFY("H5Sget_simple_extent_dims", tmp1, tmp2, total_error) ENDDO ! /* close data set */ |