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