1#include <petsc/finclude/petscsys.h> 2program main 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)) 15end 16!/*TEST 17! 18! test: 19! 20!TEST*/ 21