1 static char help[] = "Tests MPIU_Allreduce() for large count.\n";
2 #include <petscsys.h>
3
main(int argc,char ** args)4 int main(int argc, char **args)
5 {
6 PetscBool same = PETSC_FALSE;
7
8 PetscFunctionBeginUser;
9 PetscCall(PetscInitialize(&argc, &args, NULL, help));
10 PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &same, PETSC_INT_MAX - 100, MPI_C_BOOL, MPI_LAND, PETSC_COMM_WORLD));
11 PetscCall(PetscFinalize());
12 return 0;
13 }
14
15 /*TEST
16
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)" | grep -E "(Error Created|CreateError\(\)|main\(\))"
21
22 TEST*/
23