Actual source code: ex82f.F90

  1: program main
  2: #include <petsc/finclude/petscsys.h>
  3:   use petscsys
  4:   implicit none
  5:   character(len=256) :: filename
  6:   character(len=1)   :: mode
  7:   PetscBool          :: exists
  8:   PetscErrorCode     :: ierr
  9:   PetscCallA(PetscInitialize(ierr))
 10:   filename = 'filename'
 11:   mode = 'r'
 12:   PetscCallA(PetscTestFile(filename, mode, exists, ierr))
 13:   write (*, '(A, A, A, I0)') "File ", trim(filename), " doesn't exist = ", merge(1, 0, exists)
 14:   PetscCallA(PetscFinalize(ierr))
 15: end
 16: !/*TEST
 17: !
 18: !   test:
 19: !
 20: !TEST*/