diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2011-02-03 01:26:38 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2011-02-03 01:26:38 (GMT) |
| commit | 06b4b0a7550c6c761d68edc42ba1d9c70b11a710 (patch) | |
| tree | 8b63fe1adc08f7aff152f663fe274d7247ddcb4b /fortran | |
| parent | afa1394d0569099d07c810ebd1d310ee636a9a0b (diff) | |
| download | hdf5-06b4b0a7550c6c761d68edc42ba1d9c70b11a710.zip hdf5-06b4b0a7550c6c761d68edc42ba1d9c70b11a710.tar.gz hdf5-06b4b0a7550c6c761d68edc42ba1d9c70b11a710.tar.bz2 | |
[svn-r20034] Problem: A typo caused compilation to fail with gfortran 4.6 on fred (Max OS X)
Fixed.
Platforms tested: fred and jam (minor change)
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/test/tH5A_1_8.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/test/tH5A_1_8.f90 b/fortran/test/tH5A_1_8.f90 index 223877c..c48420e 100644 --- a/fortran/test/tH5A_1_8.f90 +++ b/fortran/test/tH5A_1_8.f90 @@ -158,13 +158,13 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error) !!$ CALL test_attr_corder_transition(my_fcpl, my_fapl) !!$ CALL test_attr_corder_delete(my_fcpl, my_fapl) ret_total_error = 0 - CALL test_attr_info_by_idx(new_format, my_fcpl, my_fapl, ret_total_error) + CALL test_attr_info_by_idx(new_format(i), my_fcpl, my_fapl, ret_total_error) CALL write_test_status(ret_total_error, & ' - Testing querying attribute info by index', & total_error) ret_total_error = 0 - CALL test_attr_delete_by_idx(new_format, my_fcpl, my_fapl, ret_total_error) + CALL test_attr_delete_by_idx(new_format(i), my_fcpl, my_fapl, ret_total_error) CALL write_test_status(ret_total_error, & ' - Testing deleting attribute by index', & total_error) @@ -718,7 +718,7 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error) CALL check("h5aclose_f",error,total_error) ! /* Verify information for NEW attribute */ - CALL attr_info_by_idx_check(my_dataset, attrname, INT(u,HSIZE_T), use_index, total_error) + CALL attr_info_by_idx_check(my_dataset, attrname, INT(u,HSIZE_T), use_index(i), total_error) ! CALL check("FAILED IN attr_info_by_idx_check",total_error) ENDDO |