Fortran使用print*输出出现意外多余间距，参考方案无效如何修复

问题本质 #

你观察到的输出多余空格，是Fortran 列表定向输出（即print*/write(*,*)这类无明确格式声明的输出） 的标准内置规则导致的，不是代码逻辑错误：

• 数值类型（整数、浮点数）的默认输出格式会预留固定宽度，gfortran中整数默认会按右对齐占满11个字符宽度，前面补空格填充，这就是数字5前面出现大段空隙的直接原因
• 每个独立输出项之间，编译器会自动插入分隔空格做区隔
• 输出行开头默认保留1个走纸控制用的前导空格，这就是整行最开头多出来的那个空格

修复方案 #

要完全消除多余间距，需要放弃print*的默认输出规则，手动指定输出格式，常见实现方式：

• 直接在print语句中传入自定义格式串，替代默认的星号格式：
  原语句：

  print*,"why is there so much spacing between this and",somevar
  

  修改为：

  print "(A,I0)", "why is there so much spacing between this and ", somevar
  

  格式符说明：
  • A：按字符串实际长度输出，不额外补前后空格
  • I0：整数输出采用自适应宽度，数字有几位就占几个字符位置，完全不填充前置空格
    你可以直接在拼接的字符串末尾按需加空格，间距完全可控。
• 如果需要拼接多段内容，也可以通过内部写把数值转成定长字符串后再拼接输出：

  character(len=10) :: temp_str
  write(temp_str, "(I0)") somevar
  print "(A)", "why is there so much spacing between this and "//trim(temp_str)
  

  这种方式适合输出逻辑比较灵活、不想硬写超长格式串的场景。

很多早期教程提到的固定宽度格式（比如写I5让整数占5位）本质还是会残留额外空格，I0的自适应写法才是零额外间距的最优解，这也是不少人按老方案修改后依然有间距的核心原因。注意不要尝试调整编译器参数去修改默认格式宽度，这类设置往往会因为编译器版本、编译模式不同失效，自定义格式串是跨编译器、跨版本稳定的通用方案。

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