From d364dc74a48d3e406d61920e1c3cccdf961b24d8 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Tue, 29 Jul 2008 09:19:19 -0500
Subject: [svn-r15424] Description:

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