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