1: #include <petsc/finclude/petscsys.h>
  2: program main
  3:   use petscsys
  4:   implicit none
  5:   character(len=256), parameter :: filename = 'filename'
  6:   character(len=1), parameter :: mode = 'r'
  7:   PetscBool          :: exists
  8:   PetscErrorCode     :: ierr

 10:   PetscCallA(PetscInitialize(ierr))
 11:   PetscCallA(PetscTestFile(filename, mode, exists, ierr))
 12:   write (*, '(A, A, A, I0)') "File ", trim(filename), " doesn't exist = ", merge(1, 0, exists)
 13:   PetscCallA(PetscFinalize(ierr))
 14: end
 15: !/*TEST
 16: !
 17: !   test:
 18: !
 19: !TEST*/