在运行时获取可执行文件名

Question

使用pgf90编译器,是否可以在运行时获取可执行文件的名称？将此信息与svn修订号一起保存在输出中会很好(这已经在预处理期间实现并完成).

谢谢

Answer 1

Fortran 2003引入了GET_COMMAND_ARGUMENT.除了获取命令参数之外,它还允许检索调用程序的命令名称.这在参数编号0中传递.也许您的编译器最近足以支持它.参数中传递的内容的确切文本取决于编译器.

program cmd_name
     character :: cmd*100
     call get_command_argument(0, cmd)
     print *, "command name : " // cmd(1:len_trim(cmd))
end program

使用Windows上的Ifort 13.1,打印:

 command name : cmd_name