X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/e0e373ee37eda6080ba4621403cc2adaff04d95d..79f4c4c467150b3bea841b968cabd629e9d9282a:/teshsuite/smpi/io-ordered/io-ordered.c diff --git a/teshsuite/smpi/io-ordered/io-ordered.c b/teshsuite/smpi/io-ordered/io-ordered.c index e5225dfbbd..c34409adbe 100644 --- a/teshsuite/smpi/io-ordered/io-ordered.c +++ b/teshsuite/smpi/io-ordered/io-ordered.c @@ -1,46 +1,50 @@ -#include "mpi.h" -#include -#include -#include -#include - -/* Test reading and writing zero bytes (set status correctly) */ - -int main( int argc, char *argv[] ) -{ - int errs = 0; - int size, rank, i, *buf, count; - MPI_File fh; - MPI_Comm comm; - MPI_Status status; - - MPI_Init( &argc, &argv ); - - comm = MPI_COMM_WORLD; - MPI_File_open( comm, (char*)"/scratch/lib/libsimgrid.so.3.6.2", MPI_MODE_RDWR | MPI_MODE_CREATE | MPI_MODE_DELETE_ON_CLOSE, MPI_INFO_NULL, &fh ); - MPI_Comm_size( comm, &size ); - MPI_Comm_rank( comm, &rank ); - buf = (int *)malloc( 10+size * sizeof(int) ); - buf[0] = rank; - - /* Write to file */ - MPI_File_write_ordered( fh, buf, 10, MPI_INT, &status ); - MPI_Get_count( &status, MPI_INT, &count ); - if (count != 10) { - errs++; - fprintf( stderr, "Wrong count (%d) on write-ordered\n", count );fflush(stderr); - } - MPI_Barrier( comm ); - MPI_File_seek_shared( fh, 0, MPI_SEEK_SET ); - for (i=0; i +#include +#include +#include + +/* Test reading and writing zero bytes (set status correctly) */ + +int main( int argc, char *argv[] ) +{ + int errs = 0; + int size; + int rank; + int i; + int* buf; + int count; + MPI_File fh; + MPI_Comm comm; + MPI_Status status; + + MPI_Init( &argc, &argv ); + + comm = MPI_COMM_WORLD; + MPI_File_open( comm, (char*)"/scratch/testfile", MPI_MODE_RDWR | MPI_MODE_CREATE | MPI_MODE_DELETE_ON_CLOSE, MPI_INFO_NULL, &fh ); + MPI_Comm_size( comm, &size ); + MPI_Comm_rank( comm, &rank ); + buf = (int *)malloc( 10* sizeof(int) ); + buf[0] = rank; + + /* Write to file */ + MPI_File_write_ordered( fh, buf, 10, MPI_INT, &status ); + MPI_Get_count( &status, MPI_INT, &count ); + if (count != 10) { + errs++; + fprintf( stderr, "Wrong count (%d) on write-ordered\n", count );fflush(stderr); + } + MPI_Barrier( comm ); + MPI_File_seek_shared( fh, 0, MPI_SEEK_SET ); + for (i=0; i