- ldoutbuf[0] = 0;
- ldoutbuf[1] = 1;
- ldoutbuf[2] = 1;
- if (MPI_LONG_DOUBLE != MPI_DATATYPE_NULL) {
- MTestPrintfMsg( 10, "Reduce of MPI_LONG_DOUBLE\n" );
- err = MPI_Reduce( ldinbuf, ldoutbuf, 3, MPI_LONG_DOUBLE, MPI_LOR, 0, comm );
- if (err) {
- errs++;
- MTestPrintErrorMsg( "MPI_LOR and MPI_LONG_DOUBLE", err );
- }
- else {
- if (rank == 0) {
- if (!ldoutbuf[0]) {
- errs++;
- fprintf( stderr, "long double OR(1) test failed\n" );
- }
- if (ldoutbuf[1]) {
- errs++;
- fprintf( stderr, "long double OR(0) test failed\n" );
- }
- if (!ldoutbuf[2] && size > 1) {
- errs++;
- fprintf( stderr, "long double OR(>) 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");
+ err = MPI_Reduce(ldinbuf, ldoutbuf, 3, MPI_LONG_DOUBLE, MPI_LOR, 0, comm);
+ if (err) {
+ errs++;
+ MTestPrintErrorMsg("MPI_LOR and MPI_LONG_DOUBLE", err);
+ }
+ else {
+ if (rank == 0) {
+ if (!ldoutbuf[0]) {
+ errs++;
+ fprintf(stderr, "long double OR(1) test failed\n");
+ }
+ if (ldoutbuf[1]) {
+ errs++;
+ fprintf(stderr, "long double OR(0) test failed\n");
+ }
+ if (!ldoutbuf[2] && size > 1) {
+ errs++;
+ fprintf(stderr, "long double OR(>) test failed\n");
+ }
+ }
+ }
+ }