- for (rank=0; rank < 18; rank++) {
- /* set up array */
- for (i=0; i < 72; i++) {
- array[i] = i;
- }
-
- /* set up type */
- err = MPI_Type_create_darray(18, /* size */
- rank,
- 4, /* dims */
- array_size,
- array_distrib,
- array_dargs,
- array_psizes,
- MPI_ORDER_C,
- MPI_INT,
- &darray);
- if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) {
- fprintf(stderr,
- "error in MPI_Type_create_darray call; aborting after %d errors\n",
- errs);
- }
- MTestPrintError( err );
- return errs;
- }
-
- MPI_Type_commit(&darray);
-
- /* verify the size of the type */
- MPI_Type_size(darray, &sizeoftype);
- if (sizeoftype != 4*sizeof(int)) {
- errs++;
- if (verbose) fprintf(stderr, "size of type = %d; should be %d\n",
- sizeoftype, (int) (4*sizeof(int)));
- return errs;
- }
-
- /* pack and unpack the type, zero'ing out all other values */
- err = pack_and_unpack((char *) array, 1, darray, 72*sizeof(int));
-
- for (i=0; i < 4*rank; i++) {
- if (array[i] != 0) {
- errs++;
- if (verbose) fprintf(stderr, "array[%d] = %d; should be %d\n",
- i, array[i], 0);
- }
- }
-
- for (i=4*rank; i < 4*rank + 4; i++) {
- if (array[i] != i) {
- errs++;
- if (verbose) fprintf(stderr, "array[%d] = %d; should be %d\n",
- i, array[i], i);
- }
- }
- for (i=4*rank+4; i < 72; i++) {
- if (array[i] != 0) {
- errs++;
- if (verbose) fprintf(stderr, "array[%d] = %d; should be %d\n",
- i, array[i], 0);
- }
- }
-
- MPI_Type_free(&darray);
+ for (rank = 0; rank < 18; rank++) {
+ /* set up array */
+ for (i = 0; i < 72; i++) {
+ array[i] = i;
+ }
+
+ /* set up type */
+ err = MPI_Type_create_darray(18, /* size */
+ rank, 4, /* dims */
+ array_size,
+ array_distrib,
+ array_dargs, array_psizes, MPI_ORDER_C, MPI_INT, &darray);
+ if (err != MPI_SUCCESS) {
+ errs++;
+ if (verbose) {
+ fprintf(stderr,
+ "error in MPI_Type_create_darray call; aborting after %d errors\n", errs);
+ }
+ MTestPrintError(err);
+ return errs;
+ }
+
+ MPI_Type_commit(&darray);
+
+ /* verify the size of the type */
+ MPI_Type_size(darray, &sizeoftype);
+ if (sizeoftype != 4 * sizeof(int)) {
+ errs++;
+ if (verbose)
+ fprintf(stderr, "size of type = %d; should be %d\n",
+ sizeoftype, (int) (4 * sizeof(int)));
+ return errs;
+ }
+
+ /* pack and unpack the type, zero'ing out all other values */
+ err = pack_and_unpack((char *) array, 1, darray, 72 * sizeof(int));
+
+ for (i = 0; i < 4 * rank; i++) {
+ if (array[i] != 0) {
+ errs++;
+ if (verbose)
+ fprintf(stderr, "[4d array rank=%d]:array[%d] = %d; should be %d\n",
+ rank, i, array[i], 0);
+ }
+ }
+
+ for (i = 4 * rank; i < 4 * rank + 4; i++) {
+ if (array[i] != i) {
+ errs++;
+ if (verbose)
+ fprintf(stderr, "[4d array rank=%d]:array[%d] = %d; should be %d\n",
+ rank, i, array[i], i);
+ }
+ }
+ for (i = 4 * rank + 4; i < 72; i++) {
+ if (array[i] != 0) {
+ errs++;
+ if (verbose)
+ fprintf(stderr, "[4d array rank=%d]:array[%d] = %d; should be %d\n",
+ rank, i, array[i], 0);
+ }
+ }
+
+ MPI_Type_free(&darray);