summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-07-28 19:19:11 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-07-28 19:19:11 (GMT)
commitb829da80a61283c2d3d5790b91d8b19afb856ae8 (patch)
tree18188c98afcb8021e3c6fed35538fe2b3bfc9a44 /fortran/test
parent8a770c8c639d4c779b7e8fa619a3229d32f141eb (diff)
downloadhdf5-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
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/tH5A_1_8.f908
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