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