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

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

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

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