Fortran Coder

查看: 118|回复: 2

[求助] 相同代码Fortran运行出错

[复制链接]

1

帖子

1

主题

0

精华

新人

F 币
12 元
贡献
5 点
发表于 2021-10-13 22:51:34 | 显示全部楼层 |阅读模式
彭国伦《Fortran95程序设计》和书上相同的代码,但是vs2019运行结果出错,不知道原因,请教各位!!!
2.png
1.png
回复

使用道具 举报

6

帖子

0

主题

0

精华

入门

F 币
93 元
贡献
35 点
发表于 2021-10-14 01:09:10 | 显示全部楼层
没有看过你说的那本书,几个建议:
(1)一般现代Fortran里面声明变量最好加上 ::,你这个例子上,character(len=20) :: string
(2)虽然标准上并没有禁止你使用,不推荐单独用end这个关键字。在end后面加上scope的名称,比如说,end program xxx
(3)字符串的的slicing在Fortran里面有点麻烦,但是根据标准你必须要用“string(i:j)”这样的格式,你要print第六个原素,那就是string(6:6),如果是第六个原素之后的所有,那就是string(6:)。

综上,这个程序可以这样写:
[Fortran] 纯文本查看 复制代码
program main

    character(len=20) :: string

    string = "Good morning."
    write (*, *) string
    string(6:) = "evening."
    write (*, *) string
    
end program main

评分

参与人数 1F 币 +9 收起 理由
fcode + 9 很给力!

查看全部评分

1637

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
2047 元
贡献
1292 点

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

发表于 2021-10-14 08:22:55 | 显示全部楼层
这是彭国伦书上的一处失误。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2021-10-24 08:26

Powered by Tencent X3.4

© 2014-2021 Tencent

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