X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/dcb9ba7d72e38cec362d4b04179eeb5e89635aca..111a3da5058ade0ddcfb01173504a46ff24c8429:/teshsuite/smpi/io-simple-at/io-simple-at.c diff --git a/teshsuite/smpi/io-simple-at/io-simple-at.c b/teshsuite/smpi/io-simple-at/io-simple-at.c index 6a6e161a3f..3ddf2e9eee 100644 --- a/teshsuite/smpi/io-simple-at/io-simple-at.c +++ b/teshsuite/smpi/io-simple-at/io-simple-at.c @@ -1,65 +1,65 @@ -#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( size * sizeof(int) ); - buf[0] = rank; - - /* Write to file */ - MPI_File_write_at( fh, sizeof(int)*rank, buf, 1, MPI_INT, &status ); - MPI_Get_count( &status, MPI_INT, &count ); - if (count != 1) { - errs++; - fprintf( stderr, "Wrong count (%d) on write_at\n", count );fflush(stderr); - } - - /* Read nothing (check status) */ - memset( &status, 0xff, sizeof(MPI_Status) ); - MPI_File_read_at( fh, sizeof(int)*rank, buf, 0, MPI_INT, &status ); - MPI_Get_count( &status, MPI_INT, &count ); - if (count != 0) { - errs++; - fprintf( stderr, "Count not zero (%d) on read\n", count );fflush(stderr); - } - - /* Write nothing (check status) */ - memset( &status, 0xff, sizeof(MPI_Status) ); - MPI_File_write_at( fh, sizeof(int)*rank, buf, 0, MPI_INT, &status ); - if (count != 0) { - errs++; - fprintf( stderr, "Count not zero (%d) on write\n", count );fflush(stderr); - } - - MPI_Barrier( comm ); - - 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, 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( size * sizeof(int) ); + buf[0] = rank; + + /* Write to file */ + MPI_File_write_at( fh, sizeof(int)*rank, buf, 1, MPI_INT, &status ); + MPI_Get_count( &status, MPI_INT, &count ); + if (count != 1) { + errs++; + fprintf( stderr, "Wrong count (%d) on write_at\n", count );fflush(stderr); + } + + /* Read nothing (check status) */ + memset( &status, 0xff, sizeof(MPI_Status) ); + MPI_File_read_at( fh, sizeof(int)*rank, buf, 0, MPI_INT, &status ); + MPI_Get_count( &status, MPI_INT, &count ); + if (count != 0) { + errs++; + fprintf( stderr, "Count not zero (%d) on read\n", count );fflush(stderr); + } + + /* Write nothing (check status) */ + memset( &status, 0xff, sizeof(MPI_Status) ); + MPI_File_write_at( fh, sizeof(int)*rank, buf, 0, MPI_INT, &status ); + if (count != 0) { + errs++; + fprintf( stderr, "Count not zero (%d) on write\n", count );fflush(stderr); + } + + MPI_Barrier( comm ); + + for (i=0; i