mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-01 16:28:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r25398] add a check to make sure MPI_File_get_size() returns correct value (HDFFV-8856).

Browse Source
This commit is contained in:
Mohamad Chaarawi 2014-07-09 10:19:11 -05:00
parent 06ef71a37f
commit 382976f3e9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
testpar/t_mpi.c
View File

@ -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 */