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