- for (count=1; count<MAX_COUNT; count += count) {
- if (wrank == 0)
- MTestPrintfMsg( 1, "Count = %d\n", count );
- inVal = (double *)malloc( 3 * count * sizeof(double) );
- outVal = (double *)malloc( 3 * count * sizeof(double) );
- if (!inVal || !outVal) {
- fprintf( stderr, "Unable to allocated %d words for data\n",
- 3 * count );
- MPI_Abort( MPI_COMM_WORLD, 1 );
- }
- for (i=0; i<count*3; i++) {
- outVal[i] = -1;
- inVal[i] = 1 + (i & 0x3);
- }
- MPI_Reduce( inVal, outVal, count, tripleType, op, 0, MPI_COMM_WORLD );
- /* Check Result values */
- if (wrank == 0) {
- for (i=0; i<3*count; i+=3) {
- sumval = wsize * (1 + (i & 0x3));
- maxval = 1 + ((i+1) & 0x3);
- if (outVal[i] != sumval) {
- if (errs < MAX_ERRS)
- fprintf( stderr, "%d: outval[%d] = %f, expected %f (sum)\n",
- count, i, outVal[i], sumval );
- errs++;
- }
- if (outVal[i+1] != maxval) {
- if (errs < MAX_ERRS)
- fprintf( stderr, "%d: outval[%d] = %f, expected %f (max)\n",
- count, i+1, outVal[i+1], maxval );
- errs++;
- }
- if (outVal[i+2] != 1 + ((i+2)&0x3)) {
- if (errs < MAX_ERRS)
- fprintf( stderr, "%d: outval[%d] = %f, expected %f (min)\n",
- count, i+2, outVal[i+2], (double)(1 + ((i+2)^0x3)) );
- errs++;
- }
- }
- }
+ for (count = 1; count < MAX_COUNT; count += count) {
+ if (wrank == 0)
+ MTestPrintfMsg(1, "Count = %d\n", count);
+ inVal = (double *) malloc(3 * count * sizeof(double));
+ outVal = (double *) malloc(3 * count * sizeof(double));
+ if (!inVal || !outVal) {
+ fprintf(stderr, "Unable to allocate %d words for data\n", 3 * count);
+ MPI_Abort(MPI_COMM_WORLD, 1);
+ }
+ for (i = 0; i < count * 3; i++) {
+ outVal[i] = -1;
+ inVal[i] = 1 + (i & 0x3);
+ }
+ MPI_Reduce(inVal, outVal, count, tripleType, op, 0, MPI_COMM_WORLD);
+ /* Check Result values */
+ if (wrank == 0) {
+ for (i = 0; i < 3 * count; i += 3) {
+ sumval = wsize * (1 + (i & 0x3));
+ maxval = 1 + ((i + 1) & 0x3);
+ minval = 1 + ((i + 2) & 0x3);
+ if (outVal[i] != sumval) {
+ if (errs < MAX_ERRS)
+ fprintf(stderr, "%d: outval[%d] = %f, expected %f (sum)\n",
+ count, i, outVal[i], sumval);
+ errs++;
+ }
+ if (outVal[i + 1] != maxval) {
+ if (errs < MAX_ERRS)
+ fprintf(stderr, "%d: outval[%d] = %f, expected %f (max)\n",
+ count, i + 1, outVal[i + 1], maxval);
+ errs++;
+ }
+ if (outVal[i + 2] != minval) {
+ if (errs < MAX_ERRS)
+ fprintf(stderr, "%d: outval[%d] = %f, expected %f (min)\n",
+ count, i + 2, outVal[i + 2], minval);
+ errs++;
+ }
+ }
+ }