summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2011-02-03 01:24:52 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2011-02-03 01:24:52 (GMT)
commitba13827093c38cb9d87ae87e59d47a34415c88cb (patch)
treefd693c1976e2f25249c0b0ea838844b582723e73 /fortran/test
parentb5ed119e7c8cbb837793ce6a65b83da9aab84eaf (diff)
downloadhdf5-ba13827093c38cb9d87ae87e59d47a34415c88cb.zip
hdf5-ba13827093c38cb9d87ae87e59d47a34415c88cb.tar.gz
hdf5-ba13827093c38cb9d87ae87e59d47a34415c88cb.tar.bz2
[svn-r20033] Porblem: A typo caused compilation failures with gfortran 4.6 on fred.
Fixed. Platforms tested: fred and jam (minor change)
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/tH5A_1_8.f906
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