带换行符的 Fortran 预处理器宏

Question

我正在尝试在预处理器宏中添加换行符。

我想要这样做的一个原因是要释放一些变量，但首先要检查以确保它们已被分配。如果它们没有被分配，那么应该有一个有用的错误。在这个例子中：

$ cat main.F90 
program main
   implicit none
   integer :: n = 10
   integer, allocatable, dimension(:) :: x, y

   allocate(x(n))

#define check_deallocate(QQQ) \
   if (.not. allocated(QQQ)) then \
      write(*,*) '** Error, QQQ is not allocated' \
      error stop \
   else \
      deallocate(QQQ) \
   endif

   check_deallocate(x)
   check_deallocate(y)

end program

对于这段代码，我得到以下信息：

$ gfortran -E main.F90   #-E outputs the preprocessed source
...
   if (.not. allocated(x)) then       write(*,*) '** Error, x is not allocated'       error stop    else       deallocate(x)    endif
   if (.not. allocated(y)) then       write(*,*) '** Error, y is not allocated'       error stop    else       deallocate(y)    endif
...

显然，这是不可取的，因为不遵守 132 个字符的限制。因此我的问题是：在预处理的源代码中包含换行符的语法是什么？

以下是我发现的一些问题并不能完全回答我的问题

• 这个问题是针对 C++ here 提出的，但它似乎不适用于 fortran。

• 我不想定义另一个宏（例如___CR__）并使用sed 或其他一些实用程序将其替换为\n。我希望解决方案存在于“典型”预处理器（例如 ifort 和 gfortran）中。

如果我的要求是不可能的，那也是我的问题的答案。另外，我有点意识到 fortran 预处理器缺乏标准化，但我仍然要求一个相对通用的解决方案。

Answer 1

这本身是不可能的，但如果允许您使用单独的预处理步骤，您可以使用以下方法：

SUFFIXES:
.SUFFIXES: .f90 .o

.f90.o:
    fpp -P $/n/g' > $*.ftn
    ifort -free -c $*.ftn

（未经测试。我在this link 找到了这个建议）