X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/9b73466ada27682d1729f394549479da83ef4a99..083e5bc3e59e935868789304e8bc5d906000a173:/teshsuite/smpi/mpich3-test/coll/coll10.c diff --git a/teshsuite/smpi/mpich3-test/coll/coll10.c b/teshsuite/smpi/mpich3-test/coll/coll10.c index e93abedc59..e2a424af7e 100644 --- a/teshsuite/smpi/mpich3-test/coll/coll10.c +++ b/teshsuite/smpi/mpich3-test/coll/coll10.c @@ -9,53 +9,53 @@ #define BAD_ANSWER 100000 -int assoc ( int *, int *, int *, MPI_Datatype * ); +int assoc(int *, int *, int *, MPI_Datatype *); /* - The operation is inoutvec[i] = invec[i] op inoutvec[i] + The operation is inoutvec[i] = invec[i] op inoutvec[i] (see 4.9.4). The order is important. Note that the computation is in process rank (in the communicator) order, independant of the root. */ -int assoc(int *invec, int *inoutvec, int *len, MPI_Datatype *dtype) +int assoc(int *invec, int *inoutvec, int *len, MPI_Datatype * dtype) { - int i; - for ( i=0; i<*len; i++ ) { - if (inoutvec[i] <= invec[i] ) { - int rank; - MPI_Comm_rank( MPI_COMM_WORLD, &rank ); - fprintf( stderr, "[%d] inout[0] = %d, in[0] = %d\n", - rank, inoutvec[0], invec[0] ); - inoutvec[i] = BAD_ANSWER; - } - else - inoutvec[i] = invec[i]; - } - return (1); + int i; + for (i = 0; i < *len; i++) { + if (inoutvec[i] <= invec[i]) { + int rank; + MPI_Comm_rank(MPI_COMM_WORLD, &rank); + fprintf(stderr, "[%d] inout[0] = %d, in[0] = %d\n", rank, inoutvec[0], invec[0]); + inoutvec[i] = BAD_ANSWER; + } + else + inoutvec[i] = invec[i]; + } + return (1); } -int main( int argc, char **argv ) +int main(int argc, char **argv) { - int rank, size; - int data; - int errors=0; - int result = -100; - MPI_Op op; + int rank, size; + int data; + int errors = 0; + int result = -100; + MPI_Op op; - MTest_Init( &argc, &argv ); - MPI_Comm_rank( MPI_COMM_WORLD, &rank ); - MPI_Comm_size( MPI_COMM_WORLD, &size ); + MTest_Init(&argc, &argv); + MPI_Comm_rank(MPI_COMM_WORLD, &rank); + MPI_Comm_size(MPI_COMM_WORLD, &size); data = rank; - MPI_Op_create( (MPI_User_function*)assoc, 0, &op ); - MPI_Reduce ( &data, &result, 1, MPI_INT, op, size-1, MPI_COMM_WORLD ); - MPI_Bcast ( &result, 1, MPI_INT, size-1, MPI_COMM_WORLD ); - MPI_Op_free( &op ); - if (result == BAD_ANSWER) errors++; + MPI_Op_create((MPI_User_function *) assoc, 0, &op); + MPI_Reduce(&data, &result, 1, MPI_INT, op, size - 1, MPI_COMM_WORLD); + MPI_Bcast(&result, 1, MPI_INT, size - 1, MPI_COMM_WORLD); + MPI_Op_free(&op); + if (result == BAD_ANSWER) + errors++; - MTest_Finalize( errors ); + MTest_Finalize(errors); MPI_Finalize(); - return MTestReturnValue( errors ); + return MTestReturnValue(errors); }