summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-07-29 14:15:47 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-07-29 14:15:47 (GMT)
commit121acf4bb4f76f0e9eaf3023d185861da571adaf (patch)
tree2bb0bf5677387470bd5331e3ba242b68b88daae2
parent5a752d6e908ea8b244528b68ad6fbed793638ffd (diff)
downloadhdf5-121acf4bb4f76f0e9eaf3023d185861da571adaf.zip
hdf5-121acf4bb4f76f0e9eaf3023d185861da571adaf.tar.gz
hdf5-121acf4bb4f76f0e9eaf3023d185861da571adaf.tar.bz2
[svn-r15423] Description:
Fix 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 aea5248..8b5e5f2 100644
--- a/fortran/test/tH5G_1_8.f90
+++ b/fortran/test/tH5G_1_8.f90
@@ -1251,7 +1251,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) */