diff options
| author | Mohamad Chaarawi <chaarawi@hdfgroup.org> | 2014-07-09 15:19:11 (GMT) |
|---|---|---|
| committer | Mohamad Chaarawi <chaarawi@hdfgroup.org> | 2014-07-09 15:19:11 (GMT) |
| commit | 382976f3e9822b3e003cc7a1b090bb3698850bd6 (patch) | |
| tree | 1fe8b6ec62e52917ea7193ef7b78fc39c238aa98 /testpar | |
| parent | 06ef71a37fab21fac487593789cd41e2c5d03007 (diff) | |
| download | hdf5-382976f3e9822b3e003cc7a1b090bb3698850bd6.zip hdf5-382976f3e9822b3e003cc7a1b090bb3698850bd6.tar.gz hdf5-382976f3e9822b3e003cc7a1b090bb3698850bd6.tar.bz2 | |
[svn-r25398] add a check to make sure MPI_File_get_size() returns correct value (HDFFV-8856).
Diffstat (limited to 'testpar')
| -rw-r--r-- | testpar/t_mpi.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testpar/t_mpi.c b/testpar/t_mpi.c index 27dc956..7bd2f58 100644 --- a/testpar/t_mpi.c +++ b/testpar/t_mpi.c @@ -379,7 +379,7 @@ test_mpio_gb_file(char *filename) mrc = MPI_Barrier(MPI_COMM_WORLD); VRFY((mrc==MPI_SUCCESS), "Sync before leaving test"); - printf("Test if MPI_File_get_size works with %s\n", filename); + printf("Test if MPI_File_get_size works correctly with %s\n", filename); mrc = MPI_File_open(MPI_COMM_WORLD, filename, MPI_MODE_RDONLY, info, &fh); VRFY((mrc==MPI_SUCCESS), ""); @@ -387,6 +387,7 @@ test_mpio_gb_file(char *filename) if (MAINPROCESS){ /* only process 0 needs to check it*/ mrc = MPI_File_get_size(fh, &size); VRFY((mrc==MPI_SUCCESS), ""); + VRFY((size == mpi_off+MB), "MPI_File_get_size doesn't return correct file size."); } /* close file and free the communicator */ |