- if (verbose) {
- fprintf(stderr,
- "error packing/unpacking in indexed_contig_test()\n");
- }
- errs += err;
- }
-
- for (i=0; i < 9; i++) {
- int goodval;
-
- switch(i) {
- case 1:
- goodval = 1;
- break;
- case 2:
- goodval = 2;
- break;
- case 3:
- goodval = 3;
- break;
- case 5:
- goodval = 4;
- break;
- case 6:
- goodval = 5;
- break;
- case 8:
- goodval = 6;
- break;
- default:
- goodval = 0; /* pack_and_unpack() zeros before unpack */
- break;
- }
- if (buf[i] != goodval) {
- errs++;
- if (verbose) fprintf(stderr, "buf[%d] = %d; should be %d\n",
- i, buf[i], goodval);
- }
- }
-
- MPI_Type_free( &newtype );
+ if (verbose) {
+ fprintf(stderr, "error packing/unpacking in indexed_contig_test()\n");
+ }
+ errs += err;
+ }
+
+ for (i = 0; i < 9; i++) {
+ int goodval;
+
+ switch (i) {
+ case 1:
+ goodval = 1;
+ break;
+ case 2:
+ goodval = 2;
+ break;
+ case 3:
+ goodval = 3;
+ break;
+ case 5:
+ goodval = 4;
+ break;
+ case 6:
+ goodval = 5;
+ break;
+ case 8:
+ goodval = 6;
+ break;
+ default:
+ goodval = 0; /* pack_and_unpack() zeros before unpack */
+ break;
+ }
+ if (buf[i] != goodval) {
+ errs++;
+ if (verbose)
+ fprintf(stderr, "buf[%d] = %d; should be %d\n", i, buf[i], goodval);
+ }
+ }
+
+ MPI_Type_free(&newtype);