remove older mpich test suite

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

diff --git a/teshsuite/smpi/mpich-test/pt2pt/order.c b/teshsuite/smpi/mpich-test/pt2pt/order.c
deleted file mode 100644 (file)
index 1b8f3a9..0000000
--- a/teshsuite/smpi/mpich-test/pt2pt/order.c
+++ /dev/null
@@ -1,71 +0,0 @@
-#include <stdio.h>
-#include "mpi.h"
-
-#if defined(NEEDS_STDLIB_PROTOTYPES)
-#include "protofix.h"
-#endif
-
-
-int main( int argc, char *argv[] )
-{
-    int easy;
-    int rank;
-    int size;
-    int a;
-    int b;
-    MPI_Request request;
-    MPI_Status  status;
-    double t0;
-    
-    MPI_Init(&argc, &argv);
-    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
-    MPI_Comm_size(MPI_COMM_WORLD, &size);
-
-    /* This test depends on a working wtime.  Make a simple check */
-    t0 = MPI_Wtime();
-    if (t0 == 0 && MPI_Wtime() == 0) {
-       int loopcount = 1000000;
-       /* This test is too severe (systems with fast 
-          processors and large MPI_Wtick values can 
-          fail.  Try harder to test MPI_Wtime */
-       while (loopcount-- && MPI_Wtime() == 0) ;
-       if (loopcount <= 0) {
-           fprintf( stderr, 
-                    "MPI_WTIME is returning 0; a working value is needed\n\
-for this test.\n" );
-           MPI_Abort( MPI_COMM_WORLD, 1 );
-       }
-       t0 = MPI_Wtime();
-    }
-
-    easy = 1;
-
-    MPI_Barrier( MPI_COMM_WORLD );
-    if (rank == 0)
-    {
-       MPI_Irecv(&a, 1, MPI_INT, 1, 0, MPI_COMM_WORLD, &request);
-       MPI_Recv(&b, 1, MPI_INT, 1, 0, MPI_COMM_WORLD, &status);
-       MPI_Wait(&request, &status);
-       /* Check for correct values: */
-       if (a == 1 && b == 2) {
-           printf( " No Errors\n" );
-       }
-       else {
-           printf("rank = %d, a = %d, b = %d\n", rank, a, b);
-       }
-    }
-    else
-    {
-       MPI_Wtime();
-       sleep(easy);
-  //while (MPI_Wtime() - t1 < easy) ;
-       a = 1;
-       b = 2;
-       MPI_Send(&a, 1, MPI_INT, 0, 0, MPI_COMM_WORLD);
-       MPI_Send(&b, 1, MPI_INT, 0, 0, MPI_COMM_WORLD);
-    }
-    
-
-    MPI_Finalize();
-    return 0;
-}