1: #include "petsc/finclude/petsc.h"
  2: program ex10f90
  3:   use petsc
  4:   implicit none

  6:   PetscErrorCode     :: ierr
  7:   character(len=256) :: filename
  8:   PetscBool          :: flg
  9:   PetscInt           :: n

 11:   PetscCallA(PetscInitialize(ierr))
 12:   PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-f', filename, flg, ierr))
 13:   if (flg) then
 14:     PetscCallA(PetscOptionsInsertFileYAML(PETSC_COMM_WORLD, PETSC_NULL_OPTIONS, filename, PETSC_TRUE, ierr))
 15:   end if
 16:   PetscCallA(PetscOptionsView(PETSC_NULL_OPTIONS, PETSC_VIEWER_STDOUT_WORLD, ierr))
 17:   PetscCallA(PetscOptionsAllUsed(PETSC_NULL_OPTIONS, n, ierr))
 18:   PetscCallA(PetscFinalize(ierr))
 19: end program ex10f90

 21: !
 22: !/*TEST
 23: !
 24: ! testset:
 25: !   test:
 26: !      suffix: 1
 27: !      args: -f petsc.yml -options_left 0
 28: !      localrunfiles: petsc.yml
 29: !
 30: !   test:
 31: !      suffix: 2
 32: !      args: -options_file_yaml petsc.yml -options_left 0
 33: !      localrunfiles: petsc.yml
 34: !
 35: !TEST*/