- /* To improve reporting of problems about operations, we
- change the error handler to errors return */
- MPI_Comm_set_errhandler( comm, MPI_ERRORS_RETURN );
- if (leftGroup) {
- err = MPI_Barrier( comm );
- if (err) {
- errs++;
- MTestPrintError( err );
- }
- }
- else {
- /* In the right group */
- err = MPI_Barrier( comm );
- if (err) {
- errs++;
- MTestPrintError( err );
- }
- }
- MTestFreeComm( &comm );
+ /* To improve reporting of problems about operations, we
+ * change the error handler to errors return */
+ MPI_Comm_set_errhandler(comm, MPI_ERRORS_RETURN);
+ if (leftGroup) {
+ err = MTest_Barrier(comm);
+ if (err) {
+ errs++;
+ MTestPrintError(err);
+ }
+ }
+ else {
+ /* In the right group */
+ err = MTest_Barrier(comm);
+ if (err) {
+ errs++;
+ MTestPrintError(err);
+ }
+ }
+ MTestFreeComm(&comm);