summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-07-29 14:19:19 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-07-29 14:19:19 (GMT)
commitd364dc74a48d3e406d61920e1c3cccdf961b24d8 (patch)
tree9d1fd982c3c2a1f2cd60a36b6df8e6cdd41fbd6e
parent607cadc648098fda27d50f0e49b5530f46f4a16d (diff)
downloadhdf5-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.f902
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) */