Fortran子例程运行报错传入字符串实际长度短于声明值求助

你观测到的长度矛盾本质是编译期声明长度和运行期传递的隐藏长度参数不一致导致的：你在PR1INT中打印的LEN(WORD)取的是当前作用域下WORD的声明长度，属于编译期确定的固定值，和调用子例程时传递的隐藏长度参数是完全独立的两个值，二者没有必然关联。

核心原因大概率是Fortran隐式接口导致的字符串长度隐藏参数传递错位：

• Fortran 77标准中字符串参数的长度是作为隐藏参数传递给子例程的，若子例程没有显式声明接口，编译器在调用点无法感知被调用子例程的参数声明规则，极易出现隐藏参数的位置错位。
• 你给出的调用语句中WORD后还存在字符串字面量'TRIANG'，其长度恰好为6，和报错提示的实际传入长度完全吻合：编译器错误地将后续'TRIANG'的长度值作为WORD的隐藏长度参数传给了PR1IN1，才触发了长度不匹配报错。
• 次要排查方向：检查固定格式Fortran源码的行长度限制，Fortran77默认仅前72列是有效代码，若调用PR1IN1的续行语句存在超过72列的内容，会被编译器直接截断，导致参数列表错位也可能触发同类问题。

• 首选方案：为PR1IN1添加显式接口，可在PR1INT的声明段增加INTERFACE块声明PR1IN1的完整参数列表，或把相关子例程封装到Module中，编译器会自动处理参数校验和字符串长度传递逻辑，从根源避免该类问题。
• 临时验证方案：将调用语句中的'TRIANG'修改为末尾补空格的'TRIANG '（长度为7），重新编译运行，若报错消失或长度提示变为7，即可完全确认是隐式接口导致的长度错位。
• 编译防护：编译时添加隐式接口告警参数，gfortran用-Wimplicit-interface、Intel Fortran用-warn interfaces，可提前捕捉这类接口不匹配的风险。

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