ForQuill 在线F77转F90工具【独家】

pasuka

测试一个很无聊的例子，好像转换有点问题

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

program abc
integer,parameter::n=9
integer::i,j

do 121 i=1,n
do 121 j=1,i
if(i.eq.4)goto 121
121 continue

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

Program Abc
  Integer, Parameter :: N = 9
  Integer :: I, J

  Do I = 1, N
    Do J = 1, I
      If (I.Eq.4) Go To 121
    121 End Do
  End Do

pasuka

楚香饭 发表于 2015-3-28 21:22
有什么问题？好像没有吧？

不能直接goto转cycle吗？