1*c4762a1bSJed Brown static char help[] = "Tests repeated PetscInitialize/PetscFinalize calls.\n\n"; 2*c4762a1bSJed Brown 3*c4762a1bSJed Brown #include <petscsys.h> 4*c4762a1bSJed Brown 5*c4762a1bSJed Brown int main(int argc, char **argv) 6*c4762a1bSJed Brown { 7*c4762a1bSJed Brown int i,imax; 8*c4762a1bSJed Brown PetscErrorCode ierr; 9*c4762a1bSJed Brown 10*c4762a1bSJed Brown #if defined(PETSC_HAVE_MPIUNI) 11*c4762a1bSJed Brown imax = 32; 12*c4762a1bSJed Brown #else 13*c4762a1bSJed Brown imax = 1024; 14*c4762a1bSJed Brown #endif 15*c4762a1bSJed Brown 16*c4762a1bSJed Brown MPI_Init(&argc, &argv); 17*c4762a1bSJed Brown for (i = 0; i < imax; ++i) { 18*c4762a1bSJed Brown ierr = PetscInitialize(&argc, &argv, (char*) 0, help); if (ierr) return ierr; 19*c4762a1bSJed Brown ierr = PetscFinalize(); if (ierr) return ierr; 20*c4762a1bSJed Brown } 21*c4762a1bSJed Brown MPI_Finalize(); 22*c4762a1bSJed Brown return ierr; 23*c4762a1bSJed Brown } 24*c4762a1bSJed Brown 25*c4762a1bSJed Brown /*TEST 26*c4762a1bSJed Brown 27*c4762a1bSJed Brown test: 28*c4762a1bSJed Brown 29*c4762a1bSJed Brown test: 30*c4762a1bSJed Brown suffix: 2 31*c4762a1bSJed Brown nsize: 2 32*c4762a1bSJed Brown output_file: output/ex26_1.out 33*c4762a1bSJed Brown 34*c4762a1bSJed Brown TEST*/ 35