如何在 Fortran 代码中获取行号（line number）？

在Fortran语言中，获取当前源代码行号并不直接内置在标准库中，但你可以通过一些间接的方式来实现这个功能。一种常见的做法是在程序的关键位置插入一个调试信息的宏，例如：

program my_program
   implicit none
   integer :: line_num

   ! 在每一行开始前输出行号
   call get_line_info(line_num)
   write(*,*) "Line:", line_num

   ...你的程序代码...

contains

   subroutine get_line_info(line_num)
      use iso_fortran_env, only: error_unit => output_unit
      integer, intent(out) :: line_num

      line_num = error_unit
      inquire(file=unitstr(error_unit), line=line_num, end=file_end)
      if (file_end) then
         line_num = -1  ! 如果到了文件结束，则设为错误行号
      end if
   end subroutine get_line_info
end program my_program

在这个例子中，`get_line_info` 函数尝试从错误输出单元（默认是标准输出）获取行号，如果到达了文件结束，就将其设置为一个负值表示未知行号。

请注意，这并不是标准Fortran的一部分，实际效果取决于编译器的实现，不是所有编译器都支持这样的功能。如果你需要更精确的信息，可能需要使用第三方工具，比如特定IDE的插件或者专门用于跟踪源码行号的库。