DEC Fortran代码编译适配求助：gfortran无法兼容DEC标准代码

嘿，我太懂你现在的崩溃了——一堆DEC风格的老代码，老版本gfortran完全不兼容，手动改代码简直是愚公移山。给你几个实用的解决方案，按省心程度排序：

1. 优先升级gfortran到支持DEC兼容的版本 #

gfortran 5.4.0确实太老旧了，它还没引入-fdec系列的DEC兼容选项。从gfortran 8开始，官方就加入了对DEC Fortran语法的专门支持，比如-fdec-io（兼容ACCEPT这类DEC特有的I/O语句）、-fdec-structure（兼容DEC的结构类型）、-fdec-intrinsic（兼容DEC独有的内部函数）。

在Linux Mint/Ubuntu上升级超简单：

# 更新软件源
sudo apt update
# 安装gfortran 9（也可以选更高版本比如12，稳定性都不错）
sudo apt install gfortran-9
# 设置默认gfortran版本
sudo update-alternatives --install /usr/bin/gfortran gfortran /usr/bin/gfortran-9 100
sudo update-alternatives --config gfortran

升级后，编译时加上对应的-fdec选项即可，比如：

gfortran -fdec-io -fdec-structure your_code.f -o your_program

大部分DEC代码应该能直接编译通过，省掉手动改代码的麻烦。

2. 改用Intel Fortran编译器（ifort） #

Intel的编译器对DEC Fortran的兼容性一直拉满，很多DEC特有的语法（比如ACCEPT、ENTRY语句）不用修改就能直接编译。现在可以通过Intel oneAPI免费获取：

# 添加Intel软件源
wget https://apt.repos.intel.com/intel-gpg-keys/GPG-PUB-KEY-INTEL-SW-PRODUCTS.PUB
sudo apt-key add GPG-PUB-KEY-INTEL-SW-PRODUCTS.PUB
echo "deb https://apt.repos.intel.com/oneapi all main" | sudo tee /etc/apt/sources.list.d/intel-oneapi.list
sudo apt update
# 安装Intel Fortran编译器
sudo apt install intel-oneapi-ifort

安装完成后，直接用ifort编译你的代码：

ifort your_code.f -o your_program

基本上不用碰代码就能跑起来，非常省心。

3. 自动化批量转换代码（迫不得已时用） #

如果必须死守gfortran 5.4.0，那只能批量处理代码里的DEC特有语法。可以写个简单的脚本批量替换常见差异，比如把ACCEPT换成READ，处理DEC的格式语句等。这里给你个Python脚本示例：

import os

def convert_dec_to_std_fortran(file_path):
    with open(file_path, 'r', encoding='latin-1') as f:
        content = f.read()
    
    # 替换ACCEPT语句为标准READ
    content = content.replace('ACCEPT ', 'READ ')
    # 替换DEC的PAUSE语句为标准PAUSE（gfortran 5.4支持标准PAUSE）
    content = content.replace('PAUSE', 'PAUSE')
    # 处理DEC的WRITE格式，比如WRITE(6,*)换成WRITE(*,*)
    content = content.replace('WRITE(6,', 'WRITE(*,')
    content = content.replace('WRITE(5,', 'WRITE(*,')
    
    with open(file_path, 'w', encoding='latin-1') as f:
        f.write(content)

# 遍历你的代码目录，处理所有.f/.for文件
code_dir = "/path/to/your/codebase"
for root, _, files in os.walk(code_dir):
    for file in files:
        if file.lower().endswith(('.f', '.for')):
            convert_dec_to_std_fortran(os.path.join(root, file))

注意：批量替换可能会有误操作，建议先备份代码，替换后逐个模块编译测试，针对性调整错误。

4. 分模块逐步迁移（代码量极大时用） #

如果代码量实在太大，没法一次性处理，可以把代码拆成模块，逐个攻克：

• 先用gfortran 5.4.0的-Wall -Wextra选项编译，找出所有DEC特有的语法警告/错误
• 针对每个错误修改：比如把DEC的STRUCTURE换成Fortran 90的TYPE，把DEC的内部函数换成标准函数
• 编译通过一个模块就测试一个，逐步推进，避免一次性改崩整个代码库

另外还要注意DEC Fortran和标准Fortran的默认数据长度差异，比如DEC默认整数是4字节，实数是8字节，编译时可以用-fdefault-integer-4 -fdefault-real-8来匹配，避免数值计算错误。

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