1ffeef943SBarry Smith#include <petsc/finclude/petscsys.h> 2*c5e229c2SMartin Diehlprogram main 3ffeef943SBarry Smith use petscsys 4ffeef943SBarry Smith implicit none 5ffeef943SBarry Smith 6ffeef943SBarry Smith PetscErrorCode ierr 7ffeef943SBarry Smith 8ffeef943SBarry Smith PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, 'ex2f90 test'//c_new_line, ierr)) 9ccfd86f1SBarry Smith PetscCallA(PetscViewerView(PETSC_VIEWER_STDOUT_WORLD, PETSC_VIEWER_STDOUT_WORLD, ierr)) 10ffeef943SBarry Smith PetscCallA(PetscFinalize(ierr)) 11ffeef943SBarry Smithend 12ffeef943SBarry Smith 13e2447916SStefano Zampini!/*TEST 14e2447916SStefano Zampini! 15e2447916SStefano Zampini! test: 16e2447916SStefano Zampini! args: 17e2447916SStefano Zampini! 18e2447916SStefano Zampini!TEST*/ 19