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

编译时出错不解

源代码:片段,
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
#304If (iiter==1 .Or. nalgo==1) Goto 20
Do isvab = 1, nsvab
    fixed(isvab) = 0.0
End Do
Return
#30920 Do isvab, nsvab
    fixed(isvab) = pefix(isvab)*facto
#311End 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:38

提示的意思是缺少 end subroutine

fcode 发表于 2023-3-30 09:14:41

#30920 Do isvab, nsvab
改为
#30920 Do isvab=1, nsvab

PotsyYZhou 发表于 2023-3-31 09:04:41

:-victory:Thanks!
页: [1]
查看完整版本: 编译时出错不解