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