1#include <petsc/finclude/petscsys.h> 2program ex1f90 3 use petscsys 4 implicit none 5 integer4 unit 6 7 PetscErrorCode ierr 8 PetscCallA(PetscInitialize(ierr)) 9 10 unit = 22 11 call PetscViewerASCIIStdoutSetFileUnit(unit, ierr) 12 PetscCallA(PetscFinalize(ierr)) 13end 14 15!/*TEST 16! 17! test: 18! requires: defined(PETSC_USE_LOG) 19! args: -log_view 20! output_file: output/empty.out 21! 22!TEST*/ 23