固定格式 Fortran 与 __FILE__ 和 Gfortran

问题描述

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

现在我们希望使用 GNU 的 gfortran 并且出现了问题，其中宏 __FILE__ 和 __LINE__ 以及许多行确实超过了固定格式的 72 列限制。我们认为 gfortran 和 cpp 在使用 __FILE__ 时会打印文件的整个路径，这很容易使 72 列的限制很容易超过。

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

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

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

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

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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）