remove older mpich test suite

[simgrid.git] / teshsuite / smpi / mpich-test / pt2pt / cancel.c

diff --git a/teshsuite/smpi/mpich-test/pt2pt/cancel.c b/teshsuite/smpi/mpich-test/pt2pt/cancel.c
deleted file mode 100644 (file)
index e1ca0f3..0000000
--- a/teshsuite/smpi/mpich-test/pt2pt/cancel.c
+++ /dev/null
@@ -1,117 +0,0 @@
-/*
- * This file shows a typical use of MPI_Cancel to free IRecv's that
- * are not wanted.  We check for both successful and unsuccessful 
- * cancels
- */
-
-#include "mpi.h"
-#include <stdio.h>
-
-#if defined(NEEDS_STDLIB_PROTOTYPES)
-#include "protofix.h"
-#endif
-
-int main( int argc, char **argv )
-{
-    MPI_Request r1;
-    int         size, rank;
-    int         err = 0;
-    int         partner, buf[10], flag;
-    MPI_Status  status;
-
-    MPI_Init( &argc, &argv );
-
-    MPI_Comm_size( MPI_COMM_WORLD, &size );
-    MPI_Comm_rank( MPI_COMM_WORLD, &rank );
-    
-    if (size < 2) {
-       printf( "Cancel test requires at least 2 processes\n" );
-       MPI_Abort( MPI_COMM_WORLD, 1 );
-    }
-
-    /* 
-     * Here is the test.  First, we ensure an unsatisfied Irecv:
-     *       process 0             process size-1
-     *       Sendrecv              Sendrecv
-     *       Irecv                    ----
-     *       Cancel                   ----
-     *       Sendrecv              Sendrecv
-     * Next, we confirm receipt before canceling
-     *       Irecv                 Send
-     *       Sendrecv              Sendrecv
-     *       Cancel
-     */
-    if (rank == 0) {
-       partner = size - 1;
-       /* Cancel succeeds */
-       MPI_Sendrecv( MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_COMM_WORLD, &status );
-       MPI_Irecv( buf, 10, MPI_INT, partner, 0, MPI_COMM_WORLD, &r1 );
-       MPI_Cancel( &r1 );
-       MPI_Wait( &r1, &status );
-       MPI_Test_cancelled( &status, &flag );
-       MPI_Sendrecv( MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_COMM_WORLD, &status );
-       if (!flag) {
-           err++;
-           printf( "Cancel of a receive failed where it should succeed.\n" );
-       }
-
-       /* Cancel fails */
-       MPI_Irecv( buf, 10, MPI_INT, partner, 2, MPI_COMM_WORLD, &r1 );
-       MPI_Sendrecv( MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_COMM_WORLD, &status );
-       MPI_Cancel( &r1 );
-       MPI_Test( &r1, &flag, &status );
-       MPI_Test_cancelled( &status, &flag );
-       /* It is technically possible for the cancel to succeed, even though
-          the message was (at least partially) delivered.  I'm leaving
-          this test in since most of the MPICH devices provide this
-          behavior. */
-       if (flag) {
-           err++;
-           printf( "Cancel of a receive succeeded where it shouldn't.\n" );
-       }
-
-       if (err) {
-           printf( "Test failed with %d errors.\n", err );
-       }
-       else {
-           printf( " No Errors\n" );
-       }
-    }
-    else if (rank == size - 1) {
-       partner = 0;
-       /* Cancel succeeds */
-       MPI_Sendrecv( MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_COMM_WORLD, &status );
-       MPI_Sendrecv( MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_COMM_WORLD, &status );
-       /* Cancel fails */
-       MPI_Send( buf, 3, MPI_INT, partner, 2, MPI_COMM_WORLD );
-       MPI_Sendrecv( MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_BOTTOM, 0, MPI_INT, partner, 1,
-                     MPI_COMM_WORLD, &status );
-    }
-
-    /* 
-       Next test - check that a cancel for a request receive from
-       MPI_PROC_NULL succeeds (there is some suspicion that some
-       systems can't handle this - also, MPI_REQUEST_NULL 
-
-       Note that a null request is invalid (see the various NULL comments)
-    r1 = MPI_REQUEST_NULL;
-    MPI_Cancel( &r1 );
-    */
-    MPI_Irecv( buf, 10, MPI_INT, MPI_PROC_NULL, 0, MPI_COMM_WORLD, &r1 );
-    MPI_Cancel( &r1 );
-
-    MPI_Request_free( &r1 );
-    MPI_Finalize();
-    return 0;
-}