Fortran Coder

楼主: wengxi
打印 上一主题 下一主题

[流程控制] 求帮助,if语句的编译问题与条件编译

[复制链接]

29

帖子

8

主题

0

精华

熟手

只想好好学习早点毕业

F 币
152 元
贡献
90 点
QQ
跳转到指定楼层
楼主
发表于 2015-5-14 11:06:39 | 显示全部楼层 |只看大图 回帖奖励 |倒序浏览 |阅读模式
[Fortran] 纯文本查看 复制代码
REAL X,M(1,3)
!READ*,X
X=1
IF (X<0) M(2,3)=2.0
IF (X<2) X=2.2
PRINT*,X
END

Error        1         error #5560: Subscript #1 of the array M has value 2 which is greater than the upper bound of 1        E:\programme\test\test\Source1.f90        6        
问题描述:请问Fortran90的语言或者编译器对判断语句为false的执行部分是否会编译?我觉得如果if判断为假,其对应的执行部分将会自动跳跃,不会报错,更不会编译。
                  图上所示,X的值第一个(X<0)是不会执行的,但是,后面的语句报错,表示编译的时候还是执行了的,这个不能理解,是语言问题,还是我编译器的问题?
                  谢谢!

帮助2.GIF (3.18 KB, 下载次数: 436)

结果

结果

帮助1.GIF (2.62 KB, 下载次数: 426)

帮助1.GIF
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

29

帖子

8

主题

0

精华

熟手

只想好好学习早点毕业

F 币
152 元
贡献
90 点
QQ
沙发
 楼主| 发表于 2015-5-14 13:05:26 | 显示全部楼层
也就是说fortran语言在编译时会对所有的语句(包括将来不执行的)进行类型和脚标的编译,现在如果我的程序要避免这个,有什么办法可以让他不对其编译。具体地说,我设置了多个开关,而在我这套开关的情况下会和别的开关不执行的语句想矛盾,可以解决的办法是什么?在不删去、注释的办法下,可以让他不编译或者直接跳过编译运行吗?

29

帖子

8

主题

0

精华

熟手

只想好好学习早点毕业

F 币
152 元
贡献
90 点
QQ
板凳
 楼主| 发表于 2015-5-14 13:06:07 | 显示全部楼层
vvt 发表于 2015-5-14 12:09
判断语句的路线要到执行时才能确定。编译时无法确定。所以都会编译。

谢谢,我又追问了一下。

29

帖子

8

主题

0

精华

熟手

只想好好学习早点毕业

F 币
152 元
贡献
90 点
QQ
地板
 楼主| 发表于 2015-5-14 23:06:17 | 显示全部楼层
请问一下,我觉得我没有做什么,怎么变成这个样子,题目也改变了,然后还采纳了。

29

帖子

8

主题

0

精华

熟手

只想好好学习早点毕业

F 币
152 元
贡献
90 点
QQ
5#
 楼主| 发表于 2015-5-15 16:10:24 | 显示全部楼层
pasuka 发表于 2015-5-15 08:55
lz这个不是典型的数组越界嘛!

你说的很对,我的数组却是越界了。但是这个越界的地方应该是不执行的 ,所以是可以继续执行的。

29

帖子

8

主题

0

精华

熟手

只想好好学习早点毕业

F 币
152 元
贡献
90 点
QQ
6#
 楼主| 发表于 2015-5-16 12:52:10 | 显示全部楼层
fcode 发表于 2015-5-15 08:29
为了方便主题归类和后人搜索方便,我会对已解决的问题做适当的调整(在不改变发帖人意愿的前提下,做包括“ ...

十分感谢。另外说一句,我不介意受益与否,毕竟别人帮了我,没问我要钱已经很好了。

29

帖子

8

主题

0

精华

熟手

只想好好学习早点毕业

F 币
152 元
贡献
90 点
QQ
7#
 楼主| 发表于 2015-7-9 15:15:05 | 显示全部楼层
rachel 发表于 2015-6-20 11:47
我也碰到这种情况了,在cvf下正常,但在ivf下就会出现上述问题,求点拨!

cvf在哪里下载的?给份吧。1585180632@qq.com。条件编译,就是编译时可以不用跑遍所有语句。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-3 09:19

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表