1: static char help[] = "Tests repeated PetscInitialize/PetscFinalize calls.\n\n";

  3:  #include <petscsys.h>

  5: int main(int argc, char **argv)
  6: {
  7:   int i,imax;

 10: #if defined(PETSC_HAVE_MPIUNI)
 11:   imax = 32;
 12: #else
 13:   imax = 1024;
 14: #endif

 16:   MPI_Init(&argc, &argv);
 17:   for (i = 0; i < imax; ++i) {
 18:     PetscInitialize(&argc, &argv, (char*) 0, help); if (ierr) return ierr;
 19:     PetscFinalize(); if (ierr) return ierr;
 20:   }
 21:   MPI_Finalize();
 22:   return ierr;
 23: }

 25: /*TEST

 27:    test:

 29:    test:
 30:       suffix: 2
 31:       nsize: 2
 32:       output_file: output/ex26_1.out

 34: TEST*/