MSYS2 + Gfortran 7.3.0 测试正常
[Fortran] 纯文本查看 复制代码 program main
implicit none
logical:: exist
integer:: flag
character(len=8):: fn="demo.txt"
inquire(file=fn, exist=exist)
if (exist) then
write(*,*)"File already exists."
open(newunit=flag, file=fn, status="old")
write(flag, *)"Rewrite file."
close(flag)
else
write(*,*)"File does not exist"
open(newunit=flag, file=fn, status="new")
write(flag, *)"Create file."
close(flag)
end if
end program |