- 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);