1: static char help[] = "Tests MPIU_Allreduce() for overflow.\n";
2: #include <petscsys.h>
4: int main(int argc, char **args)
5: {
6: PetscInt same = PETSC_INT_MAX;
8: PetscFunctionBeginUser;
9: PetscCall(PetscInitialize(&argc, &args, NULL, help));
10: PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &same, 1, MPIU_INT, MPI_SUM, PETSC_COMM_WORLD));
11: PetscCall(PetscFinalize());
12: return 0;
13: }
15: /*TEST
17: test:
18: TODO: Cannot run CI test in parallel to produce clean output
19: requires: !defined(PETSC_USE_64_BIT_INDICES)
20: nsize: 2
21: args: -petsc_ci_portable_error_output -error_output_stdout
22: filter: grep -E "(PETSC ERROR)" | grep -E "(Error Created|CreateError\(\)|main\(\))"
24: TEST*/