diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-07-29 14:19:19 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-07-29 14:19:19 (GMT) |
commit | d364dc74a48d3e406d61920e1c3cccdf961b24d8 (patch) | |
tree | 9d1fd982c3c2a1f2cd60a36b6df8e6cdd41fbd6e | |
parent | 607cadc648098fda27d50f0e49b5530f46f4a16d (diff) | |
download | hdf5-d364dc74a48d3e406d61920e1c3cccdf961b24d8.zip hdf5-d364dc74a48d3e406d61920e1c3cccdf961b24d8.tar.gz hdf5-d364dc74a48d3e406d61920e1c3cccdf961b24d8.tar.bz2 |
[svn-r15424] Description:
Fixed the error of passing an array to a scalar.
-rw-r--r-- | fortran/test/tH5G_1_8.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/tH5G_1_8.f90 b/fortran/test/tH5G_1_8.f90 index cc1ab67..2fe39aa 100644 --- a/fortran/test/tH5G_1_8.f90 +++ b/fortran/test/tH5G_1_8.f90 @@ -1725,7 +1725,7 @@ SUBROUTINE delete_by_idx(cleanup, fapl, total_error) ! /* Verify link information for new link */ CALL link_info_by_idx_check(group_id, objname, u, & - .TRUE., use_index, total_error) + .TRUE., use_index(i), total_error) ENDDO ! /* Verify state of group (compact) */ |