debugging - Fortran查询并打印出函数或子程序名称

Question

在 Fortran 中是否可以查询我所在的函数或子例程的名称？即，我用什么来代替“？？？”让它在屏幕上打印“my_subroutine”？

subroutine my_subroutine()
   write(*,*) ???
end subroutine my_subroutine

我正在尝试找到一种仅使用文本编辑器的搜索和替换机制来实现自定义调试器/分析器的方法。以编程方式查询我在代码中的位置会很有帮助。

Answer 1

不，你不能。你想要实现的叫做reflection而且它在 Fortran 中不可用(也不在 C 或 C++ 中)。