课本上的例子为什么编译出错呢？

何唯心

教材是彭国伦老师的《Fortran 95 程序设计》。编译器是IVF2011+vs2010。
程序是：

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program ex0612

02	implicit none

03

integer i

04	integer strlen

05	integer,parameter :: key=2

06	character(len=20) :: string

07

08	write(*,*) "String:"

09	read(*,*) string

10	strlen = len_trim(string)

11

12	do i=1,strlen

13	string(i:i)=char( ichar(string(i:i) + key) )

14

end do

15	write(*,"('encoded:',A20)")string

16

17

stop

18

end

最后编译的时候出错了，编译器提示是string(i:i)=char( ichar(string(i:i) + key) )这行代码出错了，以下是其详细的内容。
1>C:\Users\Administrator\Documents\Visual Studio 2010\Projects\Console1\Console1\ex0605.f90(13): error #6355: This binary operation is invalid for this data type.   [STRING]
1>C:\Users\Administrator\Documents\Visual Studio 2010\Projects\Console1\Console1\ex0605.f90(13): error #6549: An arithmetic or LOGICAL type is required in this context.

li913

括号不对

[Fortran] 纯文本查看 复制代码

查看代码

打印?

1	string(i:i)=char( ichar(string(i:i)) + key)

何唯心

li913 发表于 2015-12-25 16:47
括号不对

谢谢啊！看我，代码都看错了。