Code::Blocks输出控制台仅显示最后25行的原因（Fortran编译）

原因 #

Code::Blocks默认的控制台窗口缓冲区高度有限（通常默认只保留最后25行左右的输出），当程序输出内容超过缓冲区容量时，早期的输出会被覆盖，导致只能看到最后一部分内容。

解决方法 #

• 调整控制台缓冲区大小
  运行程序后，右键点击控制台窗口的标题栏，选择「属性」，切换到「布局」选项卡，修改「屏幕缓冲区大小」中的「高度」（比如设置为200或更大），确认后重新运行程序，就能看到全部输出。

• 添加暂停语句保留控制台窗口
  在代码末尾添加read(*,*)语句，让程序运行结束后等待用户输入再关闭控制台，你可以通过滚动条查看所有输出：

  program hello
  
  implicit none
  integer i
  
  do i=1,60
  print *, i, "hello world"
  end do
  read(*,*)  ! 等待用户输入，防止控制台自动关闭
  
  end program
  

• 将输出写入文件
  把输出内容定向到文件，直接在文件中查看完整结果，修改代码如下：

  program hello
  
  implicit none
  integer i
  ! 打开一个名为output.txt的文件，若存在则替换
  open(unit=10, file="output.txt", status="replace")
  
  do i=1,60
  write(10, *) i, "hello world"  ! 写入文件
  print *, i, "hello world"       ! 同时输出到控制台
  end do
  close(10)  ! 关闭文件
  
  end program
  

内容的提问来源于stack exchange，提问作者MirnaD