Actual source code: ex77.c

  1: static char help[] = "Tests MPIU_Allreduce() for mis-use.\n";
  2: #include <petscsys.h>

  4: int main(int argc, char **args)
  5: {
  6:   PetscMPIInt rank;
  7:   PetscBool   same = PETSC_FALSE;

  9:   PetscFunctionBeginUser;
 10:   PetscCall(PetscInitialize(&argc, &args, NULL, help));
 11:   PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank));
 12:   if (!rank) PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &same, 1, MPIU_BOOL, MPI_LAND, PETSC_COMM_WORLD));
 13:   else PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &same, 1, MPIU_BOOL, MPI_LAND, PETSC_COMM_WORLD));
 14:   PetscCall(PetscFinalize());
 15:   return 0;
 16: }

 18: /*TEST

 20:    test:
 21:      requires: defined(PETSC_USE_DEBUG) !defined(PETSCTEST_VALGRIND) !defined(PETSC_HAVE_SANITIZER)
 22:      args: -petsc_ci_portable_error_output -error_output_stdout
 23:      nsize: 2
 24:      filter: grep -E "(PETSC ERROR)" | egrep "(Error Created|CreateError\(\)|main\(\))"

 26: TEST*/