2: static char help[] = "Tests dynamic loading of viewer.\n\n";
4: #include <petscsys.h>
5: #include <petscviewer.h>
7: int main(int argc, char **args)
8: {
9: PetscViewer viewer;
11: PetscFunctionBeginUser;
12: PetscCall(PetscInitialize(&argc, &args, (char *)0, help));
13: PetscCall(PetscViewerCreate(PETSC_COMM_WORLD, &viewer));
14: PetscCall(PetscViewerSetFromOptions(viewer));
15: PetscCall(PetscViewerDestroy(&viewer));
17: PetscCall(PetscViewerASCIIOpen(PETSC_COMM_WORLD, "stdout", &viewer));
18: PetscCall(PetscViewerDestroy(&viewer));
19: PetscCall(PetscFinalize());
20: return 0;
21: }
23: /*TEST
25: test:
27: TEST*/