X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d9c9e08948a8387e9e8ecb0fe67ab6b94ec2a66f..5e472a6023eb14e7396b16fa4eb47c805d8f4acf:/teshsuite/smpi/mpich3-test/datatype/pairtype-size-extent.c

diff --git a/teshsuite/smpi/mpich3-test/datatype/pairtype-size-extent.c b/teshsuite/smpi/mpich3-test/datatype/pairtype-size-extent.c
index 1025f83bcf..441661aac0 100644
--- a/teshsuite/smpi/mpich3-test/datatype/pairtype-size-extent.c
+++ b/teshsuite/smpi/mpich3-test/datatype/pairtype-size-extent.c
@@ -13,7 +13,17 @@
 
 static int verbose = 1;
 
-
+static struct {
+    MPI_Datatype atype, ptype;
+    char name[32];
+} pairtypes[] = { {
+MPI_FLOAT, MPI_FLOAT_INT, "MPI_FLOAT_INT"}, {
+MPI_DOUBLE, MPI_DOUBLE_INT, "MPI_DOUBLE_INT"}, {
+MPI_LONG, MPI_LONG_INT, "MPI_LONG_INT"}, {
+MPI_SHORT, MPI_SHORT_INT, "MPI_SHORT_INT"}, {
+MPI_LONG_DOUBLE, MPI_LONG_DOUBLE_INT, "MPI_LONG_DOUBLE_INT"}, {
+(MPI_Datatype) - 1, (MPI_Datatype) - 1, "end"}
+};
 
 int parse_args(int argc, char **argv);
 
@@ -23,110 +33,116 @@ MPI_Aint pairtype_displacement(MPI_Datatype type, int *out_size_p)
 {
     MPI_Aint disp;
 
-    /* Note that a portable test may not use a switch statement for 
-       datatypes, as they are not required to be compile-time constants */
+    /* Note that a portable test may not use a switch statement for
+     * datatypes, as they are not required to be compile-time constants */
     if (type == MPI_FLOAT_INT) {
-	struct { float a; int b; } foo;
-	disp = (MPI_Aint) ((char *) &foo.b - (char *) &foo.a);
-	*out_size_p = sizeof(foo);
+        struct {
+            float a;
+            int b;
+        } foo;
+        disp = (MPI_Aint) ((char *) &foo.b - (char *) &foo.a);
+        *out_size_p = sizeof(foo);
     }
     else if (type == MPI_DOUBLE_INT) {
-	struct { double a; int b; } foo;
-	disp = (MPI_Aint) ((char *) &foo.b - (char *) &foo.a);
-	*out_size_p = sizeof(foo);
+        struct {
+            double a;
+            int b;
+        } foo;
+        disp = (MPI_Aint) ((char *) &foo.b - (char *) &foo.a);
+        *out_size_p = sizeof(foo);
     }
     else if (type == MPI_LONG_INT) {
-	struct { long a; int b; } foo;
-	disp = (MPI_Aint) ((char *) &foo.b - (char *) &foo.a);
-	*out_size_p = sizeof(foo);
+        struct {
+            long a;
+            int b;
+        } foo;
+        disp = (MPI_Aint) ((char *) &foo.b - (char *) &foo.a);
+        *out_size_p = sizeof(foo);
     }
     else if (type == MPI_SHORT_INT) {
-	struct { short a; int b; } foo;
-	disp = (MPI_Aint) ((char *) &foo.b - (char *) &foo.a);
-	*out_size_p = sizeof(foo);
+        struct {
+            short a;
+            int b;
+        } foo;
+        disp = (MPI_Aint) ((char *) &foo.b - (char *) &foo.a);
+        *out_size_p = sizeof(foo);
     }
     else if (type == MPI_LONG_DOUBLE_INT && type != MPI_DATATYPE_NULL) {
-	struct { long double a; int b; } foo;
-	disp = (MPI_Aint) ((char *) &foo.b - (char *) &foo.a);
-	*out_size_p = sizeof(foo);
+        struct {
+            long double a;
+            int b;
+        } foo;
+        disp = (MPI_Aint) ((char *) &foo.b - (char *) &foo.a);
+        *out_size_p = sizeof(foo);
     }
     else {
-	disp = -1;
+        disp = -1;
     }
     return disp;
 }
 
 int main(int argc, char *argv[])
 {
-
-struct { MPI_Datatype atype, ptype; char name[32]; }
-pairtypes[] =
-    { {MPI_FLOAT, MPI_FLOAT_INT, "MPI_FLOAT_INT"},
-      {MPI_DOUBLE, MPI_DOUBLE_INT, "MPI_DOUBLE_INT"},
-      {MPI_LONG, MPI_LONG_INT, "MPI_LONG_INT"},
-      {MPI_SHORT, MPI_SHORT_INT, "MPI_SHORT_INT"},
-      {MPI_LONG_DOUBLE, MPI_LONG_DOUBLE_INT, "MPI_LONG_DOUBLE_INT"},
-      {(MPI_Datatype) -1, (MPI_Datatype) -1, "end"}
-    };
     int errs = 0;
 
     int i;
-    int blks[2] = {1, 1};
-    MPI_Aint disps[2] = {0, 0};
-    MPI_Datatype types[2] = {MPI_INT, MPI_INT};
+    int blks[2] = { 1, 1 };
+    MPI_Aint disps[2] = { 0, 0 };
+    MPI_Datatype types[2] = { MPI_INT, MPI_INT };
     MPI_Datatype stype;
-    
+
     MPI_Init(&argc, &argv);
     parse_args(argc, argv);
 
-    for (i=0; pairtypes[i].atype != (MPI_Datatype) -1; i++) {
-	int atype_size, ptype_size, stype_size, handbuilt_extent;
-	MPI_Aint ptype_extent, stype_extent, dummy_lb;
-
-	types[0] = pairtypes[i].atype;
-
-	/* Check for undefined optional types, such as
-	   LONG_DOUBLE_INT (if, for example, long double or
-	   long long are not supported) */
-	if (types[0] == MPI_DATATYPE_NULL) continue;
-
-	MPI_Type_size(types[0], &atype_size);
-	disps[1] = pairtype_displacement(pairtypes[i].ptype,
-					 &handbuilt_extent);
-
-	MPI_Type_create_struct(2, blks, disps, types, &stype);
-
-	MPI_Type_size(stype, &stype_size);
-	MPI_Type_size(pairtypes[i].ptype, &ptype_size);
-	if (stype_size != ptype_size) {
-	    errs++;
-
-	    if (verbose) fprintf(stderr,
-				 "size of %s (%d) does not match size of hand-built MPI struct (%d)\n",
-				 pairtypes[i].name, ptype_size, stype_size);
-	}
-
-	MPI_Type_get_extent(stype, &dummy_lb, &stype_extent);
-	MPI_Type_get_extent(pairtypes[i].ptype, &dummy_lb, &ptype_extent);
-	if (stype_extent != ptype_extent || stype_extent != handbuilt_extent) {
-	    errs++;
-
-	    if (verbose) fprintf(stderr,
-				 "extent of %s (%d) does not match extent of either hand-built MPI struct (%d) or equivalent C struct (%d)\n",
-				 pairtypes[i].name, (int) ptype_extent,
-				 (int) stype_extent,
-				 handbuilt_extent);
-	}
-	MPI_Type_free( &stype );
+    for (i = 0; pairtypes[i].atype != (MPI_Datatype) - 1; i++) {
+        int atype_size, ptype_size, stype_size, handbuilt_extent;
+        MPI_Aint ptype_extent, stype_extent, dummy_lb;
+
+        types[0] = pairtypes[i].atype;
+
+        /* Check for undefined optional types, such as
+         * LONG_DOUBLE_INT (if, for example, long double or
+         * long long are not supported) */
+        if (types[0] == MPI_DATATYPE_NULL)
+            continue;
+
+        MPI_Type_size(types[0], &atype_size);
+        disps[1] = pairtype_displacement(pairtypes[i].ptype, &handbuilt_extent);
+
+        MPI_Type_create_struct(2, blks, disps, types, &stype);
+
+        MPI_Type_size(stype, &stype_size);
+        MPI_Type_size(pairtypes[i].ptype, &ptype_size);
+        if (stype_size != ptype_size) {
+            errs++;
+
+            if (verbose)
+                fprintf(stderr,
+                        "size of %s (%d) does not match size of hand-built MPI struct (%d)\n",
+                        pairtypes[i].name, ptype_size, stype_size);
+        }
+
+        MPI_Type_get_extent(stype, &dummy_lb, &stype_extent);
+        MPI_Type_get_extent(pairtypes[i].ptype, &dummy_lb, &ptype_extent);
+        if (stype_extent != ptype_extent || stype_extent != handbuilt_extent) {
+            errs++;
+
+            if (verbose)
+                fprintf(stderr,
+                        "extent of %s (%d) does not match extent of either hand-built MPI struct (%d) or equivalent C struct (%d)\n",
+                        pairtypes[i].name, (int) ptype_extent,
+                        (int) stype_extent, handbuilt_extent);
+        }
+        MPI_Type_free(&stype);
     }
-    
+
 
     /* print message and exit */
     if (errs) {
-	fprintf(stderr, "Found %d errors\n", errs);
+        fprintf(stderr, "Found %d errors\n", errs);
     }
     else {
-	printf(" No Errors\n");
+        printf(" No Errors\n");
     }
     MPI_Finalize();
     return 0;
@@ -136,8 +152,8 @@ int parse_args(int argc, char **argv)
 {
     /* We use a simple test because getopt isn't universally available */
     if (argc > 1 && strcmp(argv[1], "-v") == 0)
-	verbose = 1;
+        verbose = 1;
     if (argc > 1 && strcmp(argv[1], "-nov") == 0)
-	verbose = 0;
+        verbose = 0;
     return 0;
 }