新手求救：一个简单的斐波拉契数列程序出问题了

fcode

修改意见参考注释：

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  Implicit None
  integer :: i = 3
  integer :: a(1000)!//必须定长
  a(1:2)=1
  Do while( i<30 .and. a(i)<100000)
    a(i) = a(i-1)+a(i-2)
    write(*,*) a(i)
    i=i+1 !//先输出后+1
  End Do
End Program www_fcode_cn