X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/f186fd6470cd6853b97c53782c710745c628e810..28335d43a1e64d3a412e8d6b86e59a389852b0d1:/teshsuite/smpi/isp/umpire/dropped-req.c?ds=sidebyside diff --git a/teshsuite/smpi/isp/umpire/dropped-req.c b/teshsuite/smpi/isp/umpire/dropped-req.c deleted file mode 100644 index ff3560f48a..0000000000 --- a/teshsuite/smpi/isp/umpire/dropped-req.c +++ /dev/null @@ -1,59 +0,0 @@ -/* -*- Mode: C; -*- */ -/* Creator: Bronis R. de Supinski (bronis@llnl.gov) Wed Nov 29 2000 */ -/* dropped-req.c -- create a request that's never matched */ -/* NOTE: THIS TEST ASSUMES THAT MPI LIBRARY USES EAGER SENDS IF */ -/* BUFFER IS ZERO BYTES; WILL DEADLOCK IN WHILE LOOP IF FALSE */ - - -/* NOTE: Some value of ITERATIONS will imply resource exhaustion */ -/* either in Umpire or MPI no matter how things are implemented */ -/* the best we can hope for is to fail gracefully... */ -/* 10000 breaks umpire due to running out of memory as of 12/20/02... */ -/* FAILURE IS NOT GRACEFUL AS OF THIS TIME... */ -#define ITERATIONS 10 - - -#include -#include -#include -#include "mpi.h" - -int -main (int argc, char **argv) -{ - int nprocs = -1; - int rank = -1; - int tag = 31; - int i; - MPI_Comm comm = MPI_COMM_WORLD; - char processor_name[128]; - int namelen = 128; - MPI_Request req; - MPI_Status status; - - /* 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); - - MPI_Barrier(comm); - - /* 0 sends task nprocs-1 a message that is never received */ - if (rank == 0) { - for (i = 0; i < ITERATIONS; i++) { - int flag = 0; - MPI_Isend (&tag, 0, MPI_BYTE, nprocs - 1, tag, comm, &req); - - while (!flag) - MPI_Test (&req, &flag, &status); - } - } - - MPI_Finalize (); - printf ("(%d) Finished normally\n", rank); -} - -/* EOF */