[svn-r15424] Description:

Fixed the error of passing an array to a scalar.
2008-07-29 09:19:19 -05:00
parent 607cadc648
commit d364dc74a4
1 changed files with 1 additions and 1 deletions
--- 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) */