1:       program main

  3: #include <petsc/finclude/petscsys.h>
  4:       use petscsys
  5:       implicit none

  7:       PetscErrorCode ierr

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

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