fortran - 带有 __FILE__ 和 Gfortran 的固定格式 Fortran

Question

我们有一个用 Fortran 固定格式 (*.f) 文件编写的大型框架 - 我们有很多__FILE__并__LINE__在运行时打印错误、警告等。到目前为止，我们只使用了所用宏的标志，ifort并且没有任何问题。-fpp

现在我们正在寻求gfortranGNU 使用，问题出现了，宏__FILE__和__LINE__许多行确实超过了固定格式的 72 列限制。我们认为gfortranwithcpp在使用时打印文件的整个路径__FILE__，这很容易使 72 列的限制很容易超过。

我们尝试过的一个选项是使用-ffixed-line-length-none它似乎可以克服后一个问题，但反过来又会产生以下问题

 Error: Expected expression at (1) in PARAMETER statement
 mkl_vsl.f90:711:72:

mkl_vsl是 MKL VSL 库intel，第 711 行如下所示：

  PARAMETER (VSL_RNG_METHOD_EXPONENTIAL_ICDF_ACCURATE=              &
 &IOR(VSL_RNG_METHOD_EXPONENTIAL_ICDF,VSL_RNG_METHOD_ACCURACY_FLAG))

有没有办法截断__FILE__它只打印文件名而不是整个路径？

标签： fortranc-preprocessorgfortranintel-mkl