1: /*
2: Tests the signal handler.
3: */
4: #include petsc.h
8: int CreateError(int n)
9: {
11: PetscReal *x = 0;
12: if (!n) x[0] = 100.;
13: CreateError(n-1);
14: return 0;
15: }
19: int main(int argc,char **argv)
20: {
22: PetscInitialize(&argc,&argv,(char *)0,0);
23: PetscFPrintf(PETSC_COMM_WORLD,stdout,"Demonstrates how PETSc can trap error interrupts\n");
24: PetscFPrintf(PETSC_COMM_WORLD,stdout,"The error below is contrived to test the code!\n");
25: PetscSynchronizedFlush(PETSC_COMM_WORLD);
26: CreateError(5);
27: PetscFinalize();
28: return 0;
29: }
30: