Fortran中-fno-automatic致纯函数SAVE属性报错的批量解决方法咨询

以下是几种无需逐个修改纯函数变量的可行方案：

1. 拆分编译规则，差异化应用选项 #

把代码按是否包含纯函数分成两组，分别设置编译选项：

• 普通代码（无纯函数）继续使用-fno-automatic
• 含纯函数的代码改用-fdec-static替代全局的-fno-automatic

在Makefile中可以这样配置：

# 编译普通模块/子程序
normal_objects = utils.o data_handler.o
$(normal_objects): %.o: %.f90
    gfortran -c -fno-automatic $< -o $@

# 编译含纯函数的文件
pure_objects = math_ops.o filter_funcs.o
$(pure_objects): %.o: %.f90
    gfortran -c -fdec-static $< -o $@

# 链接所有目标文件生成可执行程序
main_program: $(normal_objects) $(pure_objects)
    gfortran $^ -o $@

2. 批量脚本修改代码 #

用正则匹配工具批量给纯函数内的变量添加automatic属性，无需手动逐个修改：
比如用sed命令（需根据你的代码变量声明风格调整正则）：

# 匹配纯函数块内的变量声明行，添加automatic属性
sed -i '/^pure function/,/^end function/ s/^\([a-z0-9_]*\) ::/\1, automatic ::/gi' *.f90

注意：先在备份文件上测试正则匹配效果，避免误改非目标代码。

3. 编译器版本过渡方案 #

如果使用的是GCC/gfortran，部分旧版本（比如9.x及以前）对-fno-automatic在纯函数中的限制较宽松，可以临时回退到对应版本编译，同时逐步重构代码。这是过渡方案，不建议长期依赖。

4. 编译器宏简化修改 #

通过预编译宏批量统一纯函数内变量的属性：

1. 在编译时添加宏定义：

gfortran -c -fno-automatic -D PURE_VAR_ATTR="automatic" your_code.f90

2. 批量替换代码中纯函数内的变量声明，将integer :: i替换为integer, PURE_VAR_ATTR :: i，这一步可以用sed或编辑器的全局替换功能完成。

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