summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5F.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2014-04-07 17:05:22 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2014-04-07 17:05:22 (GMT)
commit849177c7b6810d2fc4c16092fc3e37a3fee12075 (patch)
tree009fea2e69f97ffea9ec5f7458675df78fbee0d4 /fortran/test/tH5F.f90
parentf6a04cded9e3ec9d2c672215c8ab7fffdec0a1ea (diff)
downloadhdf5-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.f9013
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"