Fortran 中的 CPP 预处理语句可以缩进吗？答案

【问题标题】：Can CPP preprocessing statement in Fortran be indented?Fortran 中的 CPP 预处理语句可以缩进吗？
【发布时间】：2016-12-21 13:25:07
【问题描述】：

我对使用 Fortran 预处理语句还很陌生，并且有一个问题可能很自然。 Fortran 预处理语句可以缩进吗？我在 Linux (openSUSE Leap) 上使用 Gfortran 4.8.1 进行了测试，结果发现它根本不能缩进。

以下代码 main.f90 适用于gfortran -cpp main.f90 -o main：

program main
    implicit none
#ifdef DEBUG
    print *, "I am in debug mode"
#endif 
    print *, "hello world!"
end program main

但是下面会报错：

program main
    implicit none
    #ifdef DEBUG
    print *, "I am in debug mode"
    #endif 
    print *, "hello world!"
end program main

错误消息是Error: Invalid character in name at (1)。这是否意味着我们应该始终从行首开始编写预处理语句，或者它只是编译器特定的规则？任何帮助将不胜感激，并提前致谢！

【问题讨论】：

【解决方案1】：

不，它们不能缩进，因为 gfortran 在 traditional mode 中运行 CPP，它不允许缩进。它们必须始终从第一列开始。

您可以手动运行 CPP，但要非常小心。如果您在某处使用// 字符串连接运算符，预处理器会将其视为注释。您必须使用@ewcz 在他/她的答案中显示的-C 标志，该标志禁止丢弃cmets。

一些编译器提供他们自己的 FPP 预处理器，其行为不同。

【讨论】：

【解决方案2】：

您可以使用C 预处理器进行处理，然后编译处理后的文件，即假设您的程序位于main.f90，然后类似：

cpp -nostdinc -C -P -w main.f90 > _main.f90
gfortran -o main _main.f90

在这方面，这个问题还是蛮有用的：Indenting #defines

【讨论】：