X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c81c99a491282f76757c2673961e3cdee6853539..b7dc075d2c3bdf2b384cb8897d16a4c0aa8ab0f7:/teshsuite/smpi/mpich-test/coll/allredmany.c diff --git a/teshsuite/smpi/mpich-test/coll/allredmany.c b/teshsuite/smpi/mpich-test/coll/allredmany.c deleted file mode 100644 index 9d6b283e61..0000000000 --- a/teshsuite/smpi/mpich-test/coll/allredmany.c +++ /dev/null @@ -1,28 +0,0 @@ -#include -#include "mpi.h" -#include "test.h" - -/* - * This example should be run with 2 processes and tests the ability of the - * implementation to handle a flood of one-way messages. - */ - -int main( int argc, char **argv ) -{ - double wscale = 10.0, scale; - int numprocs, myid,i,namelen; - char processor_name[MPI_MAX_PROCESSOR_NAME]; - - MPI_Init(&argc,&argv); - MPI_Comm_size(MPI_COMM_WORLD,&numprocs); - MPI_Comm_rank(MPI_COMM_WORLD,&myid); - MPI_Get_processor_name(processor_name,&namelen); - - /* fprintf(stderr,"Process %d on %s\n", - myid, processor_name); */ - for ( i=0; i<10000; i++) { - MPI_Allreduce(&wscale,&scale,1,MPI_DOUBLE,MPI_SUM,MPI_COMM_WORLD); - } - MPI_Finalize(); - return 0; -}