X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/f186fd6470cd6853b97c53782c710745c628e810..28335d43a1e64d3a412e8d6b86e59a389852b0d1:/teshsuite/smpi/isp/umpire/collective-misorder2.c diff --git a/teshsuite/smpi/isp/umpire/collective-misorder2.c b/teshsuite/smpi/isp/umpire/collective-misorder2.c deleted file mode 100644 index 69e7790c0f..0000000000 --- a/teshsuite/smpi/isp/umpire/collective-misorder2.c +++ /dev/null @@ -1,57 +0,0 @@ -/* -*- Mode: C; -*- */ -/* Creator: Jeffrey Vetter (j-vetter@llnl.gov) Mon Nov 1 1999 */ -/* collective-misorder.c -- do some collective operations (w/ one of them out of order) */ - -#ifndef lint -static char *rcsid = - "$Header: /usr/gapps/asde/cvs-vault/umpire/tests/collective-misorder2.c,v 1.1 2002/01/05 00:19:39 bronis Exp $"; -#endif - -#include -#include -#include "mpi.h" - -#define buf_size 128 - -int -main (int argc, char **argv) -{ - int nprocs = -1; - int rank = -1; - MPI_Comm comm = MPI_COMM_WORLD; - char processor_name[128]; - int namelen = 128; - int buf0[buf_size]; - int buf1[buf_size]; - - /* init */ - MPI_Init (&argc, &argv); - MPI_Comm_size (comm, &nprocs); - MPI_Comm_rank (comm, &rank); - MPI_Get_processor_name (processor_name, &namelen); - printf ("(%d) is alive on %s\n", rank, processor_name); - fflush (stdout); - - memset (buf0, 0, buf_size*sizeof(int)); - memset (buf1, 1, buf_size*sizeof(int)); - - MPI_Barrier (comm); - MPI_Barrier (comm); - - switch (rank) - { - case 0: - MPI_Bcast (buf0, buf_size, MPI_INT, 0, comm); - MPI_Barrier (comm); - break; - - default: - MPI_Barrier (comm); - MPI_Bcast (buf0, buf_size, MPI_INT, 0, comm); - break; - } - MPI_Finalize (); - printf ("(%d) Finished normally\n", rank); -} - -/* EOF */