1 static char help[] = "Tests MPIU_Allreduce() for mis-use.\n";
2 #include <petscsys.h>
3
main(int argc,char ** args)4 int main(int argc, char **args)
5 {
6 PetscMPIInt rank;
7 PetscBool same = PETSC_FALSE;
8
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, MPI_C_BOOL, MPI_LAND, PETSC_COMM_WORLD));
13 else PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &same, 1, MPI_C_BOOL, MPI_LAND, PETSC_COMM_WORLD));
14 PetscCall(PetscFinalize());
15 return 0;
16 }
17
18 /*TEST
19
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)" | grep -E "(Error Created|CreateError\(\)|main\(\))"
25
26 TEST*/
27