- MPI_Probe( MPI_PROC_NULL, 10, MPI_COMM_WORLD, &status );
- if (status.MPI_SOURCE != MPI_PROC_NULL) {
- printf( "Status.MPI_SOURCE was %d, should be MPI_PROC_NULL\n",
- status.MPI_SOURCE );
- errs++;
- }
- if (status.MPI_TAG != MPI_ANY_TAG) {
- printf( "Status.MPI_TAG was %d, should be MPI_ANY_TAGL\n",
- status.MPI_TAG );
- errs++;
- }
+ MPI_Probe(MPI_PROC_NULL, 10, MPI_COMM_WORLD, &status);
+ if (status.MPI_SOURCE != MPI_PROC_NULL) {
+ printf("Status.MPI_SOURCE was %d, should be MPI_PROC_NULL\n", status.MPI_SOURCE);
+ errs++;
+ }
+ if (status.MPI_TAG != MPI_ANY_TAG) {
+ printf("Status.MPI_TAG was %d, should be MPI_ANY_TAGL\n", status.MPI_TAG);
+ errs++;
+ }