1599935楼: Originally posted by sunyang1988 at 2013-02-28 08:53:42
改成10000就直接显示10000...

program test
integer(8)::a,b
character(1)::creturn=achar(13)
do a=1,10000
write(*,'(A,I5)',advance='no') creturn,a
do i = 1, 100000
j = i+1
end do
end do
end program test

1599982楼: Originally posted by snoopyzhao at 2013-02-28 13:33:48
program test
integer(8)::a,b
character(1)::creturn=achar(13)
do a=1,10000
write(*,'(A,I5)',advance='no') creturn,a
do i = 1, 100000
j = i+1
end do
end do
end program test


至少在我的机 ...

1599992楼: Originally posted by sunyang1988 at 2013-02-28 14:46:19
我是用putty终端登录到服务器的，莫非服务器速度太快了，屏幕上还是直接输出10000。
导出输出文件，粘贴到这里是这样的
    1
    2
    3
    4
但在Windows下的记事本中打开时不换行的
linux下用vi打开
...

1600017楼: Originally posted by snoopyzhao at 2013-02-28 16:47:10
这个结果是正确的啊。我在 Linux 跑过，没有什么问题的。
是不是你的 putty 终端的问题啊...