diff options
| -rw-r--r-- | fortran/test/tH5G_1_8.f90 | 2 |
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) */ |