1: /*$Id: ex2.c,v 1.19 2001/08/07 21:29:12 bsmith Exp $*/
3: /*
4: Tests the signal handler.
5: */
6: #include petsc.h
8: int CreateError(int n)
9: {
10: int ierr;
11: PetscReal *x = 0;
12: if (!n) x[0] = 100.;
13: CreateError(n-1);
14: return 0;
15: }
17: int main(int argc,char **argv)
18: {
20: PetscInitialize(&argc,&argv,(char *)0,0);
21: PetscFPrintf(PETSC_COMM_WORLD,stdout,"Demonstrates how PETSc can trap error interruptsn");
22: PetscFPrintf(PETSC_COMM_WORLD,stdout,"The error below is contrived to test the code!n");
23: PetscSynchronizedFlush(PETSC_COMM_WORLD);
24: CreateError(5);
25: PetscFinalize();
26: return 0;
27: }
28: