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