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

Question

我使用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)。 这是否意味着我们应该始终从行的第一行开始编写预处理语句，或者它只是编译器特定的规则？任何帮助将不胜感激，并提前感谢！

Answer 1

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

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

在这方面，这个问题非常有用：Indenting #defines

Answer 2

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

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

有些编译器提供自己的FPP预处理器，其行为方式不同。