1: #include <petsc/finclude/petscsys.h>
  2: program main
  3:   use petscsys
  4:   implicit none

  6:   PetscErrorCode ierr

  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))
 11: end

 13: !/*TEST
 14: !
 15: !   test:
 16: !      args:
 17: !
 18: !TEST*/