程序执行结果有误

Fnewhand · 发表于 2014-3-15 21:46:08

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 这段程序是用来去掉一段字符中的所有空格的，但是，当它遇到第一个空格时就会结束运行，后面的字符就不显示了，怎么回事？请指点。