- ldoutbuf[0] = 0;
- ldoutbuf[1] = 1;
- ldoutbuf[2] = 1;
- if (MPI_LONG_DOUBLE != MPI_DATATYPE_NULL) {
- MTestPrintfMsg( 10, "Reduce of MPI_LONG_DOUBLE\n" );
- rc = MPI_Reduce( ldinbuf, ldoutbuf, 3, MPI_LONG_DOUBLE, MPI_LXOR, 0, comm );
- if (rc) {
- MTestPrintErrorMsg( "MPI_LXOR and MPI_LONG_DOUBLE", rc );
- errs++;
- }
- else {
- if (rank == 0) {
- if (ldoutbuf[0] != (size % 2)) {
- errs++;
- fprintf( stderr, "long double XOR(1) test failed\n" );
- }
- if (ldoutbuf[1]) {
- errs++;
- fprintf( stderr, "long double XOR(0) test failed\n" );
- }
- if (ldoutbuf[2] == (size % 2) && size > 1) {
- errs++;
- fprintf( stderr, "long double XOR(>) test failed\n" );
- }
- }
- }
- }
+ ldoutbuf[0] = 0;
+ ldoutbuf[1] = 1;
+ ldoutbuf[2] = 1;
+ if (MPI_LONG_DOUBLE != MPI_DATATYPE_NULL) {
+ MTestPrintfMsg(10, "Reduce of MPI_LONG_DOUBLE\n");
+ rc = MPI_Reduce(ldinbuf, ldoutbuf, 3, MPI_LONG_DOUBLE, MPI_LXOR, 0, comm);
+ if (rc) {
+ MTestPrintErrorMsg("MPI_LXOR and MPI_LONG_DOUBLE", rc);
+ errs++;
+ }
+ else {
+ if (rank == 0) {
+ if (ldoutbuf[0] != (size % 2)) {
+ errs++;
+ fprintf(stderr, "long double XOR(1) test failed\n");
+ }
+ if (ldoutbuf[1]) {
+ errs++;
+ fprintf(stderr, "long double XOR(0) test failed\n");
+ }
+ if (ldoutbuf[2] == (size % 2) && size > 1) {
+ errs++;
+ fprintf(stderr, "long double XOR(>) test failed\n");
+ }
+ }
+ }
+ }