1*e2447916SStefano 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)) 10ffeef943SBarry Smith PetscCallA(PetscViewerView(PETSC_VIEWER_STDOUT_WORLD, PETSC_VIEWER_STDOUT_WORLD,ierr)); 11ffeef943SBarry Smith PetscCallA(PetscFinalize(ierr)) 12ffeef943SBarry Smith end 13ffeef943SBarry Smith 14*e2447916SStefano Zampini!/*TEST 15*e2447916SStefano Zampini! 16*e2447916SStefano Zampini! test: 17*e2447916SStefano Zampini! args: 18*e2447916SStefano Zampini! 19*e2447916SStefano Zampini!TEST*/ 20