From 121acf4bb4f76f0e9eaf3023d185861da571adaf Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Tue, 29 Jul 2008 09:15:47 -0500
Subject: [svn-r15423] Description:

Fix the error of passing an array to a scalar.
---
 fortran/test/tH5G_1_8.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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) */
-- 
cgit v0.12