diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-07-29 14:15:47 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-07-29 14:15:47 (GMT) |
commit | 121acf4bb4f76f0e9eaf3023d185861da571adaf (patch) | |
tree | 2bb0bf5677387470bd5331e3ba242b68b88daae2 /fortran/test/tH5G_1_8.f90 | |
parent | 5a752d6e908ea8b244528b68ad6fbed793638ffd (diff) | |
download | hdf5-121acf4bb4f76f0e9eaf3023d185861da571adaf.zip hdf5-121acf4bb4f76f0e9eaf3023d185861da571adaf.tar.gz hdf5-121acf4bb4f76f0e9eaf3023d185861da571adaf.tar.bz2 |
[svn-r15423] Description:
Fix the error of passing an array to a scalar.
Diffstat (limited to 'fortran/test/tH5G_1_8.f90')
-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) */ |