1: static char help[] = "Tests MPIU_Allreduce() for large count.\n";
2: #include <petscsys.h>
4: int main(int argc, char **args)
5: {
6: PetscBool same = PETSC_FALSE;
8: PetscFunctionBeginUser;
9: PetscCall(PetscInitialize(&argc, &args, NULL, help));
10: PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &same, PETSC_INT_MAX - 100, MPIU_BOOL, MPI_LAND, PETSC_COMM_WORLD));
11: PetscCall(PetscFinalize());
12: return 0;
13: }
15: /*TEST
17: test:
18: requires: !defined(PETSC_HAVE_MPI_LARGE_COUNT) defined(PETSC_HAVE_64_BIT_INDICES)
19: args: -petsc_ci_portable_error_output -error_output_stdout
20: filter: grep -E "(PETSC ERROR)" | egrep "(Error Created|CreateError\(\)|main\(\))"
22: TEST*/