1: #include <petsc/finclude/petscsys.h>
  2: program ex1f90
  3:   use petscsys
  4:   implicit none
  5:   integer4 unit

  7:   PetscErrorCode ierr
  8:   PetscCallA(PetscInitialize(ierr))

 10:   unit = 22
 11:   call PetscViewerASCIIStdoutSetFileUnit(unit, ierr)
 12:   PetscCallA(PetscFinalize(ierr))
 13: end

 15: !/*TEST
 16: !
 17: !     test:
 18: !       requires: defined(PETSC_USE_LOG)
 19: !       args: -log_view
 20: !       output_file: output/empty.out
 21: !
 22: !TEST*/