编译时出错不解

PotsyYZhou · 发表于 2023-3-28 17:16:25

源代码：片段，

[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:

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