为何Fortran程序体中无法展开#define宏？与C的差异解析

问题现象 #

以下Fortran代码可正常编译运行，输出结果为2：

#define y 2

program main
    implicit none

    integer :: x
    x = y
    print *, x
end program main

但将宏定义移至程序体内部后，代码无法编译——通过gfortran -E编译选项可以确认，预处理器完全没有展开这个宏：

program main
    implicit none

    integer :: x
    #define y 2
    x = y
    print *, x
end program main

而逻辑等价的C语言代码却能正常展开宏并运行：

#include <stdio.h>

int main() {
    int y;
    #define x 2
    y = x;
    printf("%d",y);
    return 0;
}

已知GCC编译Fortran时默认启用传统预处理模式，但相关文档未明确说明程序体中宏展开的限制，因此需要解答两个核心问题：

1. 为什么程序体中的宏无法被展开？
2. 该限制仅针对#define，还是覆盖所有预处理指令？

原因解析 #

GCC的Fortran传统预处理模式遵循Fortran历史遗留的规则：所有预处理指令必须放在程序单元（program、module、subroutine等）的外部。当预处理指令出现在程序体（即program main和end program main之间的代码段）内部时，预处理器会直接将其当作普通Fortran代码处理，不会执行任何预处理操作——这就是第二个示例中#define y 2未被展开的根本原因。

这个限制并非只针对#define，而是对所有预处理指令生效，包括#include、#ifdef、#ifndef等。只要这些指令出现在程序单元的内部代码中，预处理器都会忽略它们，直接传递给Fortran编译器，最终导致编译错误。

替代方案 #

如果需要在程序体内部定义常量，更符合Fortran语言规范的做法是使用parameter声明，示例如下：

program main
    implicit none

    integer, parameter :: y = 2
    integer :: x
    x = y
    print *, x
end program main

内容的提问来源于stack exchange，提问作者José Ferreira