Fortran Coder

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

[文件读写] 又是‘end of file’的报错,但是这个错误不影响程序运行

[复制链接]

55

帖子

16

主题

0

精华

专家

F 币
621 元
贡献
265 点

规矩勋章

5#
 楼主| 发表于 2015-3-24 18:51:05 | 只看该作者
kif117 发表于 2015-3-24 18:05
前面加上
        integer ios
下面这样

有判断结束的语句阿,否则他就会一直循环没完没了了。安全性也很重要啊= =要不万一程序长了拼死拼活写完因为一个小bug运行错误的话才叫坑呢。。。。。。

46

帖子

8

主题

0

精华

熟手

F 币
211 元
贡献
131 点
地板
发表于 2015-3-24 18:05:44 | 只看该作者
前面加上
        integer ios
下面这样
     do i=1,数据个数
        read(10,*,iostat=ios) readyourdata   !read
        if (ios /=0) then
        exit
        endif
---
真没太注意过‘安全性’什么的。只要能用就是好程序!

55

帖子

16

主题

0

精华

专家

F 币
621 元
贡献
265 点

规矩勋章

板凳
 楼主| 发表于 2015-3-24 17:55:21 | 只看该作者
pasuka 发表于 2015-3-24 16:13
既然知道OPEN的时候添加iostat参数,为啥不用ISO_FORTRAN_ENV模块的IOSTAT_END常量做判断呢?
传送门:
htt ...

这个不是03的吗?我的还是95呢.....

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

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

沙发
发表于 2015-3-24 16:13:07 | 只看该作者
本帖最后由 pasuka 于 2015-3-24 16:14 编辑

既然知道OPEN的时候添加iostat参数,为啥不用ISO_FORTRAN_ENV模块的IOSTAT_END常量做判断呢?
传送门:
https://gcc.gnu.org/onlinedocs/g ... 005fFORTRAN_005fENV
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-6-26 14:19

Powered by Tencent X3.4

© 2013-2024 Tencent

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