Fortran Coder

标题: 编译时出错不解 [打印本页]

作者: PotsyYZhou 时间: 2023-3-28 17:16
标题: 编译时出错不解
源代码：片段，

[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 时间: 2023-3-30 09:11
提示的意思是缺少 end subroutine

作者: fcode 时间: 2023-3-30 09:14
#309 20 Do isvab, nsvab
改为
#309 20 Do isvab=1, nsvab

作者: PotsyYZhou 时间: 2023-3-31 09:04

Thanks！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)