X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/e34f4a3d8b2aa4081ada02909800ae3cc08d48d5..c4c82977e0a105cdf7b04010ddd21bbf15dced4d:/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 6423f5bdbb..7c039e39ce 100644 --- a/teshsuite/smpi/io-ordered/io-ordered.c +++ b/teshsuite/smpi/io-ordered/io-ordered.c @@ -1,3 +1,8 @@ +/* Copyright (c) 2019-2023. 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 @@ -16,16 +21,16 @@ int main( int argc, char *argv[] ) 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 ); @@ -44,7 +49,7 @@ int main( int argc, char *argv[] ) free( buf ); MPI_File_close( &fh ); - + MPI_Finalize(); return errs; }