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