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