Fortran Coder

查看: 15143|回复: 14
打印 上一主题 下一主题

[流程控制] 求帮助,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, 下载次数: 512)

结果

结果

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

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

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
沙发
发表于 2015-5-14 12:09:12 来自移动端 | 只看该作者
判断语句的路线要到执行时才能确定。编译时无法确定。所以都会编译。

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
判断语句的路线要到执行时才能确定。编译时无法确定。所以都会编译。

谢谢,我又追问了一下。

718

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
632 元
贡献
323 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

5#
发表于 2015-5-14 13:08:55 | 只看该作者
条件编译。这个具体要看你使用什么编译器。比如 Intel fortran 的话。
[Fortran] 纯文本查看 复制代码
!DIR$ DEFINE testflag
!DIR$ IF DEFINED (testflag)
   write (*,*) 'Compiling first line'
!DIR$ ELSE
   write (*,*) 'Compiling second line'
!DIR$ ENDIF!DIR$ UNDEFINE testflag


29

帖子

8

主题

0

精华

熟手

只想好好学习早点毕业

F 币
152 元
贡献
90 点
QQ
6#
 楼主| 发表于 2015-5-14 23:06:17 | 只看该作者
请问一下,我觉得我没有做什么,怎么变成这个样子,题目也改变了,然后还采纳了。

2015

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1572 元
贡献
676 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

7#
发表于 2015-5-15 08:29:22 | 只看该作者
为了方便主题归类和后人搜索方便,我会对已解决的问题做适当的调整(在不改变发帖人意愿的前提下,做包括“修改帖子标题”,“排版帖子内代码”等)

这里不是百度知道,所以不存在“采纳”一说。而是管理人员标记这个主题为“已解决”,并不会有任何回答者因此而“受益”,也不影响这个帖子继续讨论和回复,也仅仅是出于分类管理的目的。

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

水王勋章元老勋章热心勋章

8#
发表于 2015-5-15 08:55:28 | 只看该作者
lz这个不是典型的数组越界嘛!

29

帖子

8

主题

0

精华

熟手

只想好好学习早点毕业

F 币
152 元
贡献
90 点
QQ
9#
 楼主| 发表于 2015-5-15 16:10:24 | 只看该作者
pasuka 发表于 2015-5-15 08:55
lz这个不是典型的数组越界嘛!

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

29

帖子

8

主题

0

精华

熟手

只想好好学习早点毕业

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

十分感谢。另外说一句,我不介意受益与否,毕竟别人帮了我,没问我要钱已经很好了。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-11-1 07:42

Powered by Tencent X3.4

© 2013-2024 Tencent

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