From b829da80a61283c2d3d5790b91d8b19afb856ae8 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Mon, 28 Jul 2008 14:19:11 -0500 Subject: [svn-r15417] Description: Changed the INTENT for total_error to be consistantly INTENT(INOUT) as noted in bug 1251 --- fortran/test/tH5A_1_8.f90 | 8 ++++---- 1 file 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 -- cgit v0.12