X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/111a3da5058ade0ddcfb01173504a46ff24c8429..ea74f5d95928a521a588737e81f1de94eef25d19:/teshsuite/smpi/io-simple/io-simple.c?ds=sidebyside diff --git a/teshsuite/smpi/io-simple/io-simple.c b/teshsuite/smpi/io-simple/io-simple.c index 9ee0db60cb..fc12c9ac89 100644 --- a/teshsuite/smpi/io-simple/io-simple.c +++ b/teshsuite/smpi/io-simple/io-simple.c @@ -1,3 +1,8 @@ +/* Copyright (c) 2019-2022. The SimGrid Team. All rights reserved. */ + +/* This program is free software; you can redistribute it and/or modify it + * under the terms of the license (GNU LGPL) which comes with this package. */ + #include "mpi.h" #include #include @@ -9,22 +14,25 @@ int main( int argc, char *argv[] ) { int errs = 0; - int size, rank, i, *buf, count; + int size; + int rank; + 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/lib/libsimgrid.so.3.6.2", MPI_MODE_RDWR | MPI_MODE_CREATE | MPI_MODE_DELETE_ON_CLOSE, MPI_INFO_NULL, &fh ); + 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( size * sizeof(int) ); buf[0] = rank; - + /* Write to file */ - MPI_File_seek( fh, sizeof(int)*rank, MPI_SEEK_SET ); + MPI_File_seek(fh, sizeof(int) * rank, MPI_SEEK_SET); MPI_File_write( fh, buf, 1, MPI_INT, &status ); MPI_Get_count( &status, MPI_INT, &count ); if (count != 1) { @@ -52,16 +60,17 @@ int main( int argc, char *argv[] ) MPI_Barrier( comm ); MPI_File_seek( fh, sizeof(int)*rank, MPI_SEEK_SET ); - for (i=0; i