Actual source code: ex1.c
2: static char help[] = "Demonstrates PETSc error handlers.\n";
4: #include <petscsys.h>
6: int CreateError(int n)
7: {
9: CreateError(n - 1);
10: return 0;
11: }
13: int main(int argc, char **argv)
14: {
16: PetscInitialize(&argc, &argv, (char *)0, help);
17: PetscFPrintf(PETSC_COMM_WORLD, stdout, "Demonstrates PETSc Error Handlers\n");
18: PetscFPrintf(PETSC_COMM_WORLD, stdout, "The error is a contrived error to test error handling\n");
19: PetscSynchronizedFlush(PETSC_COMM_WORLD, PETSC_STDOUT);
20: CreateError(5);
21: PetscFinalize();
22: return 0;
23: }
25: /*TEST
27: # Testing errors so only look for errors
28: test:
29: args: -error_output_stdout
30: filter: grep -E "(PETSC ERROR)" | egrep "(Error Created|CreateError\(\)|main\(\))" | cut -f1,2,3,4,5,6 -d " "
31: TODO: Does not always produce exactly expected output on all systems for all runs
33: TEST*/