19f0612e4SBarry Smith#include <petsc/finclude/petscsys.h> 2*c5e229c2SMartin Diehlprogram ex1f90 39f0612e4SBarry Smith use petscsys 49f0612e4SBarry Smith implicit none 59f0612e4SBarry Smith integer4 unit 69f0612e4SBarry Smith 79f0612e4SBarry Smith PetscErrorCode ierr 89f0612e4SBarry Smith PetscCallA(PetscInitialize(ierr)) 99f0612e4SBarry Smith 109f0612e4SBarry Smith unit = 22 119f0612e4SBarry Smith call PetscViewerASCIIStdoutSetFileUnit(unit, ierr) 129f0612e4SBarry Smith PetscCallA(PetscFinalize(ierr)) 139f0612e4SBarry Smithend 149f0612e4SBarry Smith 159f0612e4SBarry Smith!/*TEST 169f0612e4SBarry Smith! 179f0612e4SBarry Smith! test: 189f0612e4SBarry Smith! requires: defined(PETSC_USE_LOG) 199f0612e4SBarry Smith! args: -log_view 203886731fSPierre Jolivet! output_file: output/empty.out 219f0612e4SBarry Smith! 229f0612e4SBarry Smith!TEST*/ 23