From cc2669fedf96e6190f05063d317891212de42a6c Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Fri, 28 Sep 2012 15:29:38 -0500 Subject: [svn-r22842] Fixed typo in variable. Tested: jam (gnu,mpich) --- fortran/testpar/hyper.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v0.12