remove older mpich test suite

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

diff --git a/teshsuite/smpi/mpich-test/pt2pt/cancelmessages.c b/teshsuite/smpi/mpich-test/pt2pt/cancelmessages.c
deleted file mode 100644 (file)
index 6ca255b..0000000
--- a/teshsuite/smpi/mpich-test/pt2pt/cancelmessages.c
+++ /dev/null
@@ -1,171 +0,0 @@
-/*
- * This file tests to see if short,eager,and rndv messages can all be 
- * successfully cancelled.  If they cannot be cancelled, then the 
- * program still must successfully complete.
- */
-
-#include "mpi.h"
-#include <stdio.h>
-
-#if defined(NEEDS_STDLIB_PROTOTYPES)
-#include "protofix.h"
-#endif
-
-int main( int argc, char *argv[] )
-{
-
-    double       sbuf[20000];
-#ifdef FOO
-    double rbuf[20000];
-#endif
-    int          rank;
-    int          n, flag, size;
-    int          err = 0;
-    int          verbose = 0;
-    MPI_Status   status;
-    MPI_Request  req;
-
-    MPI_Init( &argc, &argv );
-    MPI_Comm_rank( MPI_COMM_WORLD, &rank );
-    MPI_Comm_size( MPI_COMM_WORLD, &size );
-
-    if (size < 2) {
-       printf( "Cancel test requires at least 2 processes\n" );
-       MPI_Abort( MPI_COMM_WORLD, 1 );
-    }
-
-    /* Short Message Test */
-    n = 200;
-
-    if (rank == 1) { /* begin if rank = 1 */
-       MPI_Isend( sbuf, n, MPI_DOUBLE, 0, 1, MPI_COMM_WORLD, &req );
-       MPI_Cancel(&req); 
-       MPI_Wait(&req, &status);
-       MPI_Test_cancelled(&status, &flag);
-       if (!flag) {
-           err++;
-           printf( "Cancelling a short message failed where it should succeed.\n" );
-       }
-       else if (verbose)
-       {
-           printf("Cancelling a short message succeeded.\n");
-       }
-    }  /* end if rank == 1 */
-
-#ifdef FOO
-/* Note that MPI-2 specifies that status.MPI_ERROR is only set by
-   multiple completion (e.g., MPI_Waitsome) and not by test_cancelled.
-*/
-    MPI_Barrier(MPI_COMM_WORLD); 
-
-    if (rank == 0) {  /* begin if rank == 0 */
-       MPI_Recv( rbuf, n, MPI_DOUBLE, 1, 1, MPI_COMM_WORLD, &status);
-    }  /* end if rank = 0 */
-    else if (rank == 1) { /* begin if rank = 1 */
-       MPI_Isend( sbuf, n, MPI_DOUBLE, 0, 1, MPI_COMM_WORLD, &req );
-       MPI_Cancel(&req); 
-       MPI_Wait(&req, &status);
-       MPI_Test_cancelled(&status, &flag);
-       if (!flag && status.MPI_ERROR != MPI_SUCCESS) {
-           err++;
-           printf( "Cancel of a send returned an error in the status field.\n" );
-       }
-         /* end if status.MPI_ERROR */
-    }  /* end if rank == 1 */
-#endif
-
-    MPI_Barrier(MPI_COMM_WORLD);
-
-    /* Eager Message Test */
-    n = 3000;
-
-    if (rank == 1) { /* begin if rank = 1 */
-       MPI_Isend( sbuf, n, MPI_DOUBLE, 0, 1, MPI_COMM_WORLD, &req );
-       MPI_Cancel(&req);
-       MPI_Wait(&req, &status);
-       MPI_Test_cancelled(&status, &flag);
-       if (!flag) {
-           err++;
-           printf( "Cancelling an eager message (3000 doubles) failed where it should succeed.\n" );
-       }
-       else if (verbose)
-       {
-           printf("Cancelling an eager message (3000 doubles) succeeded.\n");
-       }
-    }  /* end if rank == 1 */
-
-#ifdef FOO
-    MPI_Barrier(MPI_COMM_WORLD); 
-
-    if (rank == 0) {  /* begin if rank == 0 */
-       MPI_Irecv(rbuf, n, MPI_DOUBLE, 1, 1, MPI_COMM_WORLD, &req );
-       MPI_Wait( &req, &status);
-    }  /* end if rank = 0 */
-    else if (rank == 1) { /* begin if rank = 1 */
-       MPI_Isend( sbuf, n, MPI_DOUBLE, 0, 1, MPI_COMM_WORLD, &req );
-       MPI_Cancel(&req);
-       MPI_Wait(&req, &status);
-       MPI_Test_cancelled(&status, &flag);
-       if (!flag && status.MPI_ERROR != MPI_SUCCESS) {
-           err++;
-           printf( "Cancel of a send returned an error in the status field.\n" );
-       }
-       /* end if status.MPI_ERROR */
-    }  /* end if rank == 1 */
-#endif
-
-    MPI_Barrier(MPI_COMM_WORLD);
-
-    /* Rndv Message Test */
-    n = 20000;
-
-    if (rank == 1) { /* begin if rank = 1 */
-       MPI_Isend( sbuf, n, MPI_DOUBLE, 0, 1, MPI_COMM_WORLD, &req );
-       MPI_Cancel(&req);
-       MPI_Wait(&req, &status);
-       MPI_Test_cancelled(&status, &flag);
-       if (!flag) {
-           err++;
-           printf( "Cancelling a rendezvous message failed (20000 doubles) where it should succeed.\n" );
-       }
-       else if (verbose)
-       {
-           printf("Cancelling an rendezvous message (20000 doubles) succeeded.\n");
-       }
-    }  /* end if rank == 1 */
-
-#ifdef FOO
-    MPI_Barrier(MPI_COMM_WORLD); 
-
-    if (rank == 0) {  /* begin if rank == 0 */
-       MPI_Irecv(rbuf, n, MPI_DOUBLE, 1, 1, MPI_COMM_WORLD, &req );
-       MPI_Wait( &req, &status); 
-    }  /* end if rank = 0 */
-    else if (rank == 1) { /* begin if rank = 1 */
-       MPI_Isend( sbuf, n, MPI_DOUBLE, 0, 1, MPI_COMM_WORLD, &req );
-       MPI_Cancel(&req);
-       MPI_Wait(&req, &status);
-       MPI_Test_cancelled(&status, &flag);
-       if (!flag && status.MPI_ERROR != MPI_SUCCESS) {
-           err++;
-           printf( "Cancel of a send returned an error in the status field.\n" );
-       }
-       /* end if status.MPI_ERROR */
-    }  /* end if rank == 1 */
-#endif
-
-    MPI_Barrier(MPI_COMM_WORLD); 
-
-    if (rank == 1) {  /* begin if rank = 1 */
-       if (err) {
-           printf( "Test failed with %d errors.\n", err );
-       }
-       else {
-           printf( " No Errors\n" );
-       }
-    }
-
-    MPI_Finalize( );
-
-    return 0;
-}