X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c81c99a491282f76757c2673961e3cdee6853539..b7dc075d2c3bdf2b384cb8897d16a4c0aa8ab0f7:/teshsuite/smpi/mpich-test/pt2pt/commit.c

diff --git a/teshsuite/smpi/mpich-test/pt2pt/commit.c b/teshsuite/smpi/mpich-test/pt2pt/commit.c
deleted file mode 100644
index 09570f0f95..0000000000
--- a/teshsuite/smpi/mpich-test/pt2pt/commit.c
+++ /dev/null
@@ -1,86 +0,0 @@
-/*
- * This is a test of Type_commit.  This checks to see if Type_commit
- * (or Type_struct) replaces a struct with a contiguous type, and
- * that that type is constructed correctly.
- */
-
-#include "mpi.h"
-#include <stdio.h>
-
-#if defined(NEEDS_STDLIB_PROTOTYPES)
-#include "protofix.h"
-#endif
-
-int main( int argc, char **argv )
-{
-    int          nsize, n2size;
-    MPI_Aint     nlb, nub, n2lb, n2ub;
-    MPI_Datatype ntype, n2type;
-    MPI_Aint     displs[2];
-    MPI_Datatype types[2];
-    int          blockcounts[2];
-    double       myarray[10];
-    int          err = 0;
-
-    MPI_Init( &argc, &argv );
-    
-    MPI_Address( &myarray[0], &displs[0] );
-    MPI_Address( &myarray[3], &displs[1] );
-    blockcounts[0] = 3;
-    blockcounts[1] = 1;
-    displs[1] = displs[1] - displs[0];
-    displs[0] = 0;
-    types[0] = MPI_DOUBLE;
-    types[1] = MPI_DOUBLE;
-    MPI_Type_struct( 2, blockcounts, displs, types, &ntype );
-    MPI_Type_commit( &ntype );
-
-    MPI_Type_size( ntype, &nsize );
-    MPI_Type_lb( ntype, &nlb );
-    MPI_Type_ub( ntype, &nub );
-
-    if (nlb != 0) {
-	err++;
-	printf( "LB for struct is %d\n", (int)nlb );
-    }
-    if (nub != 4 * sizeof(double)) {
-	err++;
-	printf( "UB for struct is %d != %d\n", (int)nub, 
-		4 * (int)sizeof(double) );
-    }
-    if (nsize != 4 * sizeof(double)) {
-	err++;
-	printf( "Size for struct %d != %d\n", nsize, 4 * (int)sizeof(double) );
-    }
-
-    MPI_Type_contiguous( 3, ntype, &n2type );
-    MPI_Type_commit( &n2type );
-
-    MPI_Type_size( n2type, &n2size );
-    MPI_Type_lb( n2type, &n2lb );
-    MPI_Type_ub( n2type, &n2ub );
-
-    if (n2size != 3 * nsize) {
-	err++;
-	printf( "Size of contig type %d != %d\n", n2size, 3*nsize );
-    }
-    if (n2lb != 0) {
-	err++;
-	printf( "LB for contig is %d\n", (int)n2lb );
-    }
-    if (n2ub != 3 * nub) {
-	err++;
-	printf( "UB for contig %d != %d\n", (int)n2ub, 3 * (int)nub );
-    }
-
-    if (err) {
-	printf( "Found %d errors\n", err );
-    }
-    else {
-	printf( " No Errors\n" );
-    }
-    MPI_Type_free( &ntype );
-    MPI_Type_free( &n2type );
-    MPI_Finalize();
-    return 0;
-}