diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-09-28 20:29:38 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-09-28 20:29:38 (GMT) |
| commit | cc2669fedf96e6190f05063d317891212de42a6c (patch) | |
| tree | c73f2c667cabd271b469fe6856704ce08d55ed6a /fortran/testpar/hyper.f90 | |
| parent | 08a5424f6031759ef2660b3c9f07ff0e69c9d8bd (diff) | |
| download | hdf5-cc2669fedf96e6190f05063d317891212de42a6c.zip hdf5-cc2669fedf96e6190f05063d317891212de42a6c.tar.gz hdf5-cc2669fedf96e6190f05063d317891212de42a6c.tar.bz2 | |
[svn-r22842] Fixed typo in variable.
Tested: jam (gnu,mpich)
Diffstat (limited to 'fortran/testpar/hyper.f90')
| -rw-r--r-- | fortran/testpar/hyper.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/testpar/hyper.f90 b/fortran/testpar/hyper.f90 index 1a580ca..650a088 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_F)THEN + IF(actual_io_mode.NE.H5D_MPIO_NO_COLLECTIVE_IO_F)THEN CALL check("h5pget_mpio_actual_io_mode_f", -1, nerrors) ENDIF ELSEIF( do_collective.AND.(.NOT.do_chunk))THEN |