ex0903.f90

Fortran 95程序设计&Code-彭国伦

program ex0903
  implicit none
  character(len=20) :: filename = "ex0903.f90"
  logical alive

  inquire(file=filename, exist=alive)
  if ( alive ) then
    write(*,*) filename," exist."
  else
    write(*,*) filename," doesn't exist."
  end if

  stop
end