Actual source code: ex2f.F90

      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*/