Question

这个FORTRAN程序编译通不过，是我的版本问题么

program main
implicit none
integer, parameter :: inputfileid=10,outputfileid=11
integer, parameter :: maxbuffer=200
character(len=80) :: inputfile, outputfile
character(len=maxbuffer)buffer
integer count
integer error
logical alive

write(*,*)"input filename:"
read(*,"(a80)") inputfile
write(*,*)" output filename:"
read(*,"(a80)")outputfile

inquire(file=inputfile, exist=alive)
if(.not.alive)then
write(*,*)trim(inputfile)," doesn't exist."

stop end if
open(unit=inputfileid, file=inptfile, statues="old")
open(unit=outputfileid, file=outptfile, statues="replace")
count=1
do while(.true.)
read(inputfileid,"(a80)",iostat=error)buffer
if(error/=0)exit
write(outputfileid, "(i3,'.',a)")count,trim(buffer)
count=count+1
end do
close(inputfileid)
close(outputfileid)

stop
end program

Compiling Fortran...
D:\WF5 START\FORTRAN\201300.f90
D:\WF5 START\FORTRAN\201300.f90(14) : Error: This name does not have a type, and must have an explicit type. [OUTPUTFILE]
read(*,"(a80)")outputfile
-----------------^
D:\WF5 START\FORTRAN\201300.f90(23) : Error: This name does not have a type, and must have an explicit type. [INPTFILE]
open(unit=inputfileid, file=inptfile, statues="old")
------------------------------^
D:\WF5 START\FORTRAN\201300.f90(23) : Error: This input/output keyword is invalid. [STATUES]
open(unit=inputfileid, file=inptfile, statues="old")
----------------------------------------^
D:\WF5 START\FORTRAN\201300.f90(24) : Error: This name does not have a type, and must have an explicit type. [OUTPTFILE]
open(unit=outputfileid, file=outptfile, statues="replace")
-------------------------------^
D:\WF5 START\FORTRAN\201300.f90(24) : Error: This input/output keyword is invalid. [STATUES]
open(unit=outputfileid, file=outptfile, statues="replace")
------------------------------------------^
Error executing df.exe.
我的版本是 COMPAQ VISUAL FORTRAN

Answer 1

outputfile
在某些地方你写错了，写成了 outptfile
另外，statues 应该是 status

追问

好的好的，这是我写得第一个FORTRAN，太马虎了。非常感谢您的细心。另外问一下，这个有没有用不同颜色的字体标注函数等的啊，还有那个自动提示功能，比如一个函数，我打出函数，会提示内部的功能或参数，怎么弄啊。

追答

没关系，你的编程习惯还是不错的。
Implicit None 确保了这样的错误被及时发现。这很好，希望你保持。
关于你的追问，你要明确，编译器，编辑器，集成开发环境。这三者之间的关系。

编辑器书写代码，编译器把代码变成可执行文件。集成开发环境把他们集成在一起。
实际上，他们是分开的。你提出的功能，是编辑器的功能，而不是编译器。
CVF 提供的集成开发环境，内嵌的编辑器无法满足你。
你完全可以用其他的编辑器来书写代码，例如记事本，UltraEdit，Notepad++，甚至 VIM 等。
然后用 CVF 编译。

我不知道哪个编辑器提供你这样的功能。
我们公司以Fortran开发商业程序，整个团队也没有这样的需求。都是用 VS 自带的编辑器来书写代码，没有任何问题。

Answer 2

单引号，不要用双引号，或”xyZ”C微软独创还是已成为标准的C串兼容格式才是双引号后面写一个C表示这是C格式字符串！

Answer 3

编译器没有设置好，
头文件没有关联好

追问

我初学，能详细讲解下么。我就直接写了一个源文件

追答

就是说你编译程序要设置编译器，
已结关键字的宏定义也要关联到工程里

至于解释，你翻译一下错误说明就能明白了

Answer 4

不是很清楚啊~