1 static char help[] = "Tests MPIU_Allreduce() for mis-use.\n"; 2 #include <petscsys.h> 3 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, 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 } 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)" | egrep "(Error Created|CreateError\(\)|main\(\))" 25 26 TEST*/ 27