summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5P.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/tH5P.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/tH5P.f90')
-rw-r--r--fortran/test/tH5P.f906
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90
index 6db6b1a..454f507 100644
--- a/fortran/test/tH5P.f90
+++ b/fortran/test/tH5P.f90
@@ -41,7 +41,7 @@ SUBROUTINE external_test(cleanup, total_error)
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(INOUT) :: total_error
CHARACTER(LEN=8), PARAMETER :: filename = "external"
CHARACTER(LEN=80) :: fix_filename
@@ -158,7 +158,7 @@ SUBROUTINE multi_file_test(cleanup, total_error)
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(INOUT) :: total_error
CHARACTER(LEN=9), PARAMETER :: filename = "multidset" ! File name
CHARACTER(LEN=80) :: fix_filename
@@ -428,7 +428,7 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(INOUT) :: total_error
CHARACTER(LEN=14), PARAMETER :: filename="chunk_cache"
CHARACTER(LEN=80) :: fix_filename