编辑代码

program main
	OPEN(1,FILE ="D:\1fortrantest\test.txt",STATUS = "REPLACE")

    CLOSE(1)
end