Fortran调用get_environment_variable报错 环境变量异常排查

你碰到的Fortran runtime error: End of record报错，绝大多数场景不是环境变量被篡改，核心诱因是字符串长度不匹配、内存踩踏，按以下步骤定位即可：

• 先修正环境变量读取的调用逻辑
  你当前直接调用call get_environment_variable('PWD',pwd)、直接打印128位定长字符的写法本身就有问题，这个内置子程序需要同步接收长度、状态返回值，否则遇到环境变量实际长度和定义的字符变量长度不匹配的情况，就会直接触发记录结束报错。标准调用写法参考：

  character(len=128) :: pwd
  integer :: env_stat, env_len
  call get_environment_variable( &
    name='PWD', &
    value=pwd, &
    length=env_len, &
    status=env_stat &
  )
  
  select case(env_stat)
    case(0)
      print *, "当前PWD值：", trim(pwd(1:env_len))
    case(1)
      print *, "PWD变量长度超出128位，实际长度：", env_len
    case default
      print *, "PWD变量不存在，状态码：", env_stat
  end select
  

  注意打印定长字符变量必须按实际返回长度截断，否则字符串尾部填充的空值、随机内存值会导致Fortran按固定长度读记录时读到非法边界，直接抛错。
• 全局排查共性字符串操作问题
  你提到跳过任意单个子例程都无法解决问题，说明故障是全局共性逻辑导致的，重点查两类问题：
  • 所有open语句传入的文件路径、文件名变量，是否存在未截断定长字符串的问题。如果直接把带尾部填充空格的定长字符当路径传入，会导致系统识别到错误的文件名，触发批量文件打开I/O错误。
  • 排查是否存在内存踩踏：大型Fortran程序最容易出现数组越界写、字符串赋值超长、公共块/模块变量传参类型不匹配的问题，这类问题会冲掉相邻内存的字符变量数据，你在任意位置读环境变量、拼路径都会碰到异常，和单个子例程逻辑无关。
• 用编译插桩快速定位根因
  不用逐个子例程加打印猜位置，编译时打开检查选项即可直接定位出错点：
  • 若使用gfortran编译，添加编译选项-g -fcheck=all -fsanitize=address,undefined -fbacktrace，开启全量边界检查、地址消毒、调用栈打印，运行时一旦出现越界写、字符串长度不匹配、非法内存访问，会直接输出出错代码行和完整调用链。
  • 若使用Intel Fortran编译，对应添加编译选项-g -check all -traceback即可实现同类检查效果。

补充说明：普通Fortran逻辑没有特殊系统调用的话，根本无法篡改进程环境块里的环境变量，不要在这个方向浪费排查时间。

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