Actual source code: ex77.c
1: static char help[] = "Tests MPIU_Allreduce() for mis-use.\n";
2: #include <petscsys.h>
4: int main(int argc, char **args)
5: {
6: PetscMPIInt rank;
7: PetscBool same = PETSC_FALSE;
9: PetscFunctionBeginUser;
10: PetscCall(PetscInitialize(&argc, &args, NULL, help));
11: PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank));
12: if (!rank) PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &same, 1, MPIU_BOOL, MPI_LAND, PETSC_COMM_WORLD));
13: else PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &same, 1, MPIU_BOOL, MPI_LAND, PETSC_COMM_WORLD));
14: PetscCall(PetscFinalize());
15: return 0;
16: }
18: /*TEST
20: test:
21: requires: defined(PETSC_USE_DEBUG) !defined(PETSCTEST_VALGRIND) !defined(PETSC_HAVE_SANITIZER)
22: args: -petsc_ci_portable_error_output -error_output_stdout
23: nsize: 2
24: filter: grep -E "(PETSC ERROR)" | egrep "(Error Created|CreateError\(\)|main\(\))"
26: TEST*/