fortran删除文件

可以使用Fortran中的系统子程序system来调用Linux指令去删除文件。下面是一个简单的例子：

program delete_file
    character(len=64) :: cmd, filename
    logical :: filefound

    ! 获取要删除的文件名
    filename = "test.txt"

    ! 检查文件是否存在
    inquire(file=filename, exist=filefound)

    if (filefound) then
        ! 构造Linux指令
        write(cmd, '("/bin/rm ", A)') trim(filename)

        ! 调用system子程序执行指令
        call system(cmd)
        print *, "File deleted successfully!"
    else
        print *, "File not found!"
    end if
end program delete_file

上述代码中，我们首先使用inquire函数检查要删除的文件是否存在。如果文件存在，我们使用write函数构造Linux指令，并使用system子程序执行指令。如果文件不存在，则输出“File not found!”的提示信息。