Actual source code: ex76.c

  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*/