编译时出错不解

PotsyYZhou

源代码：片段，

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

  If (nalgo==1) kresl = 1
  If (nalgo==2) kresl = 1
  If (nalgo==3 .And. iincs==1 .And. iiter==l) kresl = 1
  If (nalgo==4 .And. iiter==1) kresl = 1
  If (nalgo==5 .And. iincs==1 .And. iiter==l) kresl = 1
  If (nalgo==5 .And. iiter==2) kresl = 1
#304  If (iiter==1 .Or. nalgo==1) Goto 20
  Do isvab = 1, nsvab
    fixed(isvab) = 0.0
  End Do
  Return
#309  20 Do isvab, nsvab
    fixed(isvab) = pefix(isvab)*facto
#311  End Do
  Return
End Subroutine nonal

!C**********************
main.f90:309:5:

  309 |   20 Do isvab, nsvab
      |     1
Error: Unclassifiable statement at (1)
main.f90:311:5:

  311 |   End Do
      |     1
Error: Expecting END SUBROUTINE statement at (1)
main.f90:304:37:

  304 |   If (iiter==1 .Or. nalgo==1) Goto 20
      |                                     1
Error: Label 20 referenced at (1) is never defined
main.f90:371:14:

    求助老师，楼主， 盼复！
    谢谢！

li913

提示的意思是缺少 end subroutine

fcode

#309  20 Do isvab, nsvab
改为
#309  20 Do isvab=1, nsvab

PotsyYZhou

Thanks！