diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-07-28 19:19:11 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-07-28 19:19:11 (GMT) |
| commit | b829da80a61283c2d3d5790b91d8b19afb856ae8 (patch) | |
| tree | 18188c98afcb8021e3c6fed35538fe2b3bfc9a44 | |
| parent | 8a770c8c639d4c779b7e8fa619a3229d32f141eb (diff) | |
| download | hdf5-b829da80a61283c2d3d5790b91d8b19afb856ae8.zip hdf5-b829da80a61283c2d3d5790b91d8b19afb856ae8.tar.gz hdf5-b829da80a61283c2d3d5790b91d8b19afb856ae8.tar.bz2 | |
[svn-r15417] Description:
Changed the INTENT for total_error to be consistantly
INTENT(INOUT)
as noted in bug 1251
| -rw-r--r-- | fortran/test/tH5A_1_8.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/test/tH5A_1_8.f90 b/fortran/test/tH5A_1_8.f90 index a74b63f..58408ee 100644 --- a/fortran/test/tH5A_1_8.f90 +++ b/fortran/test/tH5A_1_8.f90 @@ -25,7 +25,7 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error) IMPLICIT NONE LOGICAL, INTENT(IN) :: cleanup - INTEGER, INTENT(OUT) :: total_error + INTEGER, INTENT(INOUT) :: total_error CHARACTER(LEN=5), PARAMETER :: filename = "atest" !File name CHARACTER(LEN=9), PARAMETER :: dsetname = "atestdset" !Dataset name @@ -2561,7 +2561,7 @@ SUBROUTINE test_attr_dense_open( fcpl, fapl, total_error) INTEGER(HID_T), INTENT(IN) :: fcpl INTEGER(HID_T), INTENT(IN) :: fapl - INTEGER, INTENT(IN) :: total_error + INTEGER, INTENT(INOUT) :: total_error CHARACTER(LEN=8) :: FileName = "tattr.h5" INTEGER(HID_T) :: fid INTEGER(HID_T) :: dcpl @@ -2824,7 +2824,7 @@ SUBROUTINE test_attr_corder_create_basic( fcpl, fapl, total_error ) INTEGER(HID_T), INTENT(IN) :: fcpl INTEGER(HID_T), INTENT(IN) :: fapl - INTEGER, INTENT(IN) :: total_error + INTEGER, INTENT(INOUT) :: total_error CHARACTER(LEN=8) :: FileName = "tattr.h5" INTEGER(HID_T) :: fid INTEGER(HID_T) :: dcpl @@ -3150,7 +3150,7 @@ SUBROUTINE test_attr_many(new_format, fcpl, fapl, total_error) LOGICAL, INTENT(IN) :: new_format INTEGER(HID_T), INTENT(IN) :: fcpl INTEGER(HID_T), INTENT(IN) :: fapl - INTEGER, INTENT(IN) :: total_error + INTEGER, INTENT(INOUT) :: total_error CHARACTER(LEN=8) :: FileName = "tattr.h5" INTEGER(HID_T) :: fid INTEGER(HID_T) :: sid |