Actual source code: ex13f.F90
1: !
2: ! Program to test object composition from Fortran
3: !
4: program main
6: #include <petsc/finclude/petscsys.h>
7: #include <petsc/finclude/petscviewer.h>
8: use petscsys
9: implicit none
11: PetscErrorCode ierr
12: PetscViewer o1, o2, o3
13: character*(PETSC_MAX_PATH_LEN) name
15: PetscCallA(PetscInitialize(ierr))
16: PetscCallA(PetscViewerCreate(PETSC_COMM_WORLD,o1,ierr))
17: PetscCallA(PetscViewerCreate(PETSC_COMM_WORLD,o2,ierr))
18: name = 'matt'
19: PetscCallA(PetscObjectCompose(o1,name,o2,ierr))
20: PetscCallA(PetscObjectQuery(o1,name,o3,ierr))
21: PetscCheckA(o2 .eq. o3,PETSC_COMM_SELF,PETSC_ERR_PLIB,'PetscObjectQuery failed')
23: PetscCallA(PetscViewerDestroy(o1,ierr))
24: PetscCallA(PetscViewerDestroy(o2,ierr))
25: PetscCallA(PetscFinalize(ierr))
26: end
28: !
29: !/*TEST
30: !
31: ! build:
32: ! requires: defined(PETSC_HAVE_FORTRAN_TYPE_STAR)
33: !
34: ! test:
35: ! suffix: 0
36: !
37: !TEST*/