ex0903.f90

来自「Fortran 95程序设计&Code-彭国伦」· F90 代码 · 共 15 行

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