summaryrefslogtreecommitdiffstats
path: root/fortran/testpar
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2012-09-28 20:42:33 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2012-09-28 20:42:33 (GMT)
commit51bb0fe2d2d03b5744d0358f379ec3139090503c (patch)
tree50783f7213d8d7ae22576245f26c3c96e3e09462 /fortran/testpar
parentcc2669fedf96e6190f05063d317891212de42a6c (diff)
downloadhdf5-51bb0fe2d2d03b5744d0358f379ec3139090503c.zip
hdf5-51bb0fe2d2d03b5744d0358f379ec3139090503c.tar.gz
hdf5-51bb0fe2d2d03b5744d0358f379ec3139090503c.tar.bz2
[svn-r22843] Renamed variable to match C.
Tested: jam (gnu, mpich)
Diffstat (limited to 'fortran/testpar')
-rw-r--r--fortran/testpar/hyper.f902
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/testpar/hyper.f90 b/fortran/testpar/hyper.f90
index 650a088..1a580ca 100644
--- a/fortran/testpar/hyper.f90
+++ b/fortran/testpar/hyper.f90
@@ -190,7 +190,7 @@ SUBROUTINE hyper(length,do_collective,do_chunk, mpi_size, mpi_rank, nerrors)
CALL check("h5pget_mpio_actual_io_mode_f", -1, nerrors)
ENDIF
ELSEIF(.NOT.do_collective)THEN
- IF(actual_io_mode.NE.H5D_MPIO_NO_COLLECTIVE_IO_F)THEN
+ IF(actual_io_mode.NE.H5D_MPIO_NO_COLLECTIVE_F)THEN
CALL check("h5pget_mpio_actual_io_mode_f", -1, nerrors)
ENDIF
ELSEIF( do_collective.AND.(.NOT.do_chunk))THEN