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

Question

对于使用Fortran预处理语句来说，我是相当新的，并且有一个问题可能是相当本土化的。Fortran预处理语句可以缩进吗？我在Linux (openSUSE Leap)上使用Gfortran4.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

不，它们不能缩进，因为gfortran在传统模式中运行CPP，它不允许缩进。它们必须总是从第一列开始。

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

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

Answer 2

您可以使用C预处理程序进行处理，然后编译已处理的文件，即假设您的程序在main.f90中，然后如下所示：

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

在这方面，这个问题非常有用：缩进#定义