1 static char help[] = "Tests MPIU_Allreduce() for large count.\n"; 2 #include <petscsys.h> 3 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, MPIU_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)" | egrep "(Error Created|CreateError\(\)|main\(\))" 21 22 TEST*/ 23