Operator to check file existence

Question

I want to create an operator .f. that checks whether a file exists so that I can write

if (.f. filename) Then ...

I have already written a

Answer 1

You can use the inquire intrinsic:

module fileIO

interface operator( .f. )
  module procedure file_exists
end interface

contains

function file_exists(filename) result(res)
  implicit none
  character(len=*),intent(in) :: filename
  logical                     :: res

  ! Check if the file exists
  inquire( file=trim(filename), exist=res )
end function

end module

program test
  use fileIO

  print *, file_exists('/dev/null')
  print *, .f. '/dev/null'

end program