remove older mpich test suite

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

diff --git a/teshsuite/smpi/mpich-test/pt2pt/fifth.c b/teshsuite/smpi/mpich-test/pt2pt/fifth.c
deleted file mode 100644 (file)
index d06c907..0000000
--- a/teshsuite/smpi/mpich-test/pt2pt/fifth.c
+++ /dev/null
@@ -1,54 +0,0 @@
-#include <stdio.h>
-#include "mpi.h"
-#include "test.h"
-
-int main( int argc, char **argv )
-{
-    int rank, np, data = 777;
-    MPI_Request handle[4];
-    MPI_Status status[4];
-
-    MPI_Init( &argc, &argv );
-    MPI_Comm_rank( MPI_COMM_WORLD, &rank );
-    MPI_Comm_size( MPI_COMM_WORLD, &np );
-
-    if (np < 4) {
-      MPI_Finalize();
-      printf( "4 processors or more required, %d done\n", rank );
-      return(1);
-    }
-
-    if (rank == 0) {
-      MPI_Isend( &data, 1, MPI_INT, 1, 0, MPI_COMM_WORLD, &handle[0] );
-      MPI_Irecv( &data, 1, MPI_INT, 1, 0, MPI_COMM_WORLD, &handle[1] );
-      MPI_Isend( &data, 1, MPI_INT, 2, 0, MPI_COMM_WORLD, &handle[2] );
-      MPI_Irecv( &data, 1, MPI_INT, 2, 0, MPI_COMM_WORLD, &handle[3] );
-      MPI_Waitall ( 4, handle, status );
-    }
-    else if (rank == 1) {
-      MPI_Irecv( &data, 1, MPI_INT, 0, 0, MPI_COMM_WORLD, &handle[0] );
-      MPI_Isend( &data, 1, MPI_INT, 0, 0, MPI_COMM_WORLD, &handle[1] );
-      MPI_Isend( &data, 1, MPI_INT, 3, 0, MPI_COMM_WORLD, &handle[2] );
-      MPI_Irecv( &data, 1, MPI_INT, 3, 0, MPI_COMM_WORLD, &handle[3] );
-      MPI_Waitall ( 4, handle, status );
-    }
-    else if (rank == 2) {
-      MPI_Isend( &data, 1, MPI_INT, 3, 0, MPI_COMM_WORLD, &handle[0] );
-      MPI_Irecv( &data, 1, MPI_INT, 3, 0, MPI_COMM_WORLD, &handle[1] );
-      MPI_Irecv( &data, 1, MPI_INT, 0, 0, MPI_COMM_WORLD, &handle[2] );
-      MPI_Isend( &data, 1, MPI_INT, 0, 0, MPI_COMM_WORLD, &handle[3] );
-      MPI_Waitall ( 4, handle, status );
-    }
-    else if (rank == 3) {
-      MPI_Irecv( &data, 1, MPI_INT, 2, 0, MPI_COMM_WORLD, &handle[0] );
-      MPI_Isend( &data, 1, MPI_INT, 2, 0, MPI_COMM_WORLD, &handle[1] );
-      MPI_Irecv( &data, 1, MPI_INT, 1, 0, MPI_COMM_WORLD, &handle[2] );
-      MPI_Isend( &data, 1, MPI_INT, 1, 0, MPI_COMM_WORLD, &handle[3] );
-      MPI_Waitall ( 4, handle, status );
-    }
-    Test_Waitforall( );
-    MPI_Finalize();
-    return(0);
-}
-
-