diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2014-04-07 17:05:22 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2014-04-07 17:05:22 (GMT) |
| commit | 849177c7b6810d2fc4c16092fc3e37a3fee12075 (patch) | |
| tree | 009fea2e69f97ffea9ec5f7458675df78fbee0d4 /fortran/test/tH5F.f90 | |
| parent | f6a04cded9e3ec9d2c672215c8ab7fffdec0a1ea (diff) | |
| download | hdf5-849177c7b6810d2fc4c16092fc3e37a3fee12075.zip hdf5-849177c7b6810d2fc4c16092fc3e37a3fee12075.tar.gz hdf5-849177c7b6810d2fc4c16092fc3e37a3fee12075.tar.bz2 | |
[svn-r24979] Maintenance: Addressed DT failures on emu in 64-bit mode and on macs, linux, powerpc
for non-standard sizes of reals.
Platforms tested: jam, ostrich, platypus, kite, quail, emu
Diffstat (limited to 'fortran/test/tH5F.f90')
| -rw-r--r-- | fortran/test/tH5F.f90 | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90 index ad95ae4..931a046 100644 --- a/fortran/test/tH5F.f90 +++ b/fortran/test/tH5F.f90 @@ -1,4 +1,4 @@ -!****h* root/fortran/test/tH5F.f90 +!***rh* root/fortran/test/tH5F.f90 ! ! NAME ! tH5F.f90 @@ -43,7 +43,7 @@ CONTAINS USE TH5_MISC IMPLICIT NONE LOGICAL, INTENT(IN) :: cleanup - INTEGER, INTENT(OUT) :: total_error + INTEGER, INTENT(INOUT) :: total_error ! !the respective filename is "mount1.h5" and "mount2.h5" @@ -249,7 +249,6 @@ CONTAINS do i = 1, NX do j = 1, NY IF (data_out(i,j) .NE. data_in(i, j)) THEN - write(*, *) "mounting test error occured" END IF end do end do @@ -300,7 +299,7 @@ CONTAINS USE TH5_MISC IMPLICIT NONE LOGICAL, INTENT(IN) :: cleanup - INTEGER, INTENT(OUT) :: total_error + INTEGER, INTENT(INOUT) :: total_error ! CHARACTER(LEN=6), PARAMETER :: filename = "reopen" @@ -487,7 +486,7 @@ CONTAINS USE TH5_MISC IMPLICIT NONE LOGICAL, INTENT(IN) :: cleanup - INTEGER, INTENT(OUT) :: total_error + INTEGER, INTENT(INOUT) :: total_error ! !file names are "plist1.h5" and "plist2.h5" @@ -587,7 +586,7 @@ CONTAINS USE TH5_MISC IMPLICIT NONE LOGICAL, INTENT(IN) :: cleanup - INTEGER, INTENT(OUT) :: total_error + INTEGER, INTENT(INOUT) :: total_error INTEGER :: error ! @@ -717,7 +716,7 @@ CONTAINS IMPLICIT NONE CHARACTER(*), INTENT(IN) :: filename LOGICAL, INTENT(IN) :: cleanup - INTEGER, INTENT(OUT) :: total_error + INTEGER, INTENT(INOUT) :: total_error INTEGER :: error ! CHARACTER(LEN=3), PARAMETER :: grpname = "grp" |