19681e660STapashree Pradhan#include <petsc/finclude/petscsys.h> 2*c5e229c2SMartin Diehlprogram main 39681e660STapashree Pradhan use petscsys 49681e660STapashree Pradhan implicit none 59681e660STapashree Pradhan character(len=256) :: filename 69681e660STapashree Pradhan character(len=1) :: mode 79681e660STapashree Pradhan PetscBool :: exists 89681e660STapashree Pradhan PetscErrorCode :: ierr 99681e660STapashree Pradhan PetscCallA(PetscInitialize(ierr)) 109681e660STapashree Pradhan filename = 'filename' 119681e660STapashree Pradhan mode = 'r' 129681e660STapashree Pradhan PetscCallA(PetscTestFile(filename, mode, exists, ierr)) 139681e660STapashree Pradhan write (*, '(A, A, A, I0)') "File ", trim(filename), " doesn't exist = ", merge(1, 0, exists) 149681e660STapashree Pradhan PetscCallA(PetscFinalize(ierr)) 159681e660STapashree Pradhanend 169681e660STapashree Pradhan!/*TEST 179681e660STapashree Pradhan! 189681e660STapashree Pradhan! test: 199681e660STapashree Pradhan! 209681e660STapashree Pradhan!TEST*/ 21