Fortran Coder

标题: 程序执行结果有误 [打印本页]

作者: Fnewhand 时间: 2014-3-15 21:46
标题: 程序执行结果有误
program ex65
integer::j =1
integer:: i,max
character (len=20)::string
character (len=20)::substring
write (*,*)"String:"
read (*,*)string
max=len_trim(string)
do i =1,max
      if (ichar(string (i:i))==255) cycle
         substring(j:j)=string(i:i)
         j=j+1
end do
write (*,"(a20)")substring
stop
end 这段程序是用来去掉一段字符中的所有空格的，但是，当它遇到第一个空格时就会结束运行，后面的字符就不显示了，怎么回事？请指点。

作者: fcode 时间: 2014-3-15 21:50
我的祖宗，我昨天才告诉过你。

作者: Fnewhand 时间: 2014-3-15 21:51

不是吧

作者: Fnewhand 时间: 2014-3-15 21:52

这read。。。

作者: Fnewhand 时间: 2014-3-15 21:53
好吧，没长记性

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)