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

岸边的鱼 · 发表于 2015-3-29 12:17:24

老大威武

fcode · 发表于 2015-3-29 10:12:21

pasuka 发表于 2015-3-29 09:03
不能直接goto转cycle吗？

这个暂时不能。。。

分析代码的执行路线，这个太高端了。

pasuka · 发表于 2015-3-29 09:03:05

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

不能直接goto转cycle吗？

楚香饭 · 发表于 2015-3-28 21:22:47

有什么问题？好像没有吧？

pasuka · 发表于 2015-3-28 21:03:23

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

[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

[编辑器] ForQuill 在线F77转F90工具【独家】