fortran - gfortran 的 get_environment_variable 的意外行为

Question

我正在使用对 GET_ENVIRONMENT_VARIABLE 的子例程调用来读取 Fortran 程序中的计算机主机名。我无法读取此变量，但如果我读取其他变量(例如 $USER)也没关系。在我的系统(Debian Jessie、gfortran 4.9)中:

$ echo $HOSTNAME 
deckard
$ echo $USER
curro

我准备了这个小节目:

program hello
!                                           
implicit none
integer :: ivar = 0, len, stat
character(LEN=256) :: host, user
call GET_ENVIRONMENT_VARIABLE('HOSTNAME', host, len, stat)
if (stat == 0) then
  print*, "Hostname read: ", host
else
  print*, "Hostname read failed: stat = ", stat
endif
call GET_ENVIRONMENT_VARIABLE('USER', user, len, stat)
if (stat == 0) print*, "Username read: ", user
print *, "This is user ", trim(user), " in node ",  trim(host), "." 
!
end program hello

如果我运行这个简单的程序(使用或不使用 -std=f2003 编译)，输出为:

$ ./a.out 
Hostname read failed: stat =            1
Username read: curro                                                                                                                                                                                                                                                           
This is user curro in node .

因此错误为 stat = 1。 我知道 gfortran 具有内在的 HOSTNM 但为了与其他编译器兼容，我更喜欢 GET_ENVIRONMENT_VARIABLE。知道为什么会发生这种情况吗？

Answer 1

我假设你的 shell 是 bash，但如果实际的 shell 是另一个 shell，最终结果应该不会改变太多。

在 bash 中，您可以访问 environment variables以及常规 bash 变量。要使子进程(即由 bash 启动的程序，例如 gfortran 或程序“a.out”)可以访问变量，它必须是环境的一部分。默认情况下，仅来自 posix set of environment variables 的变量被传递(尽管有些可能被省略)。

可从 bash 命令行和 Fortran 程序(或任何其他程序)访问的 posix 变量示例:HOME、USER、PWD或PATH。

您可以通过检查 env 程序知道的内容来验证它们是否确实可以访问:

env | grep HOME
env | grep USER

同时

env | grep HOSTNAME

不返回任何内容。

因此您需要导出变量 HOSTNAME 以将其放入已知环境变量列表中。 bash 恰好知道主机名，因为它定义了一组变量以方便用户(请参阅 https://www.gnu.org/software/bash/manual/html_node/Bash-Variables.html#index-HOSTNAME )。便利变量的另一个例子是 BASH_VERSION，它特定于 bash 本身。

export HOSTNAME
env | grep HOSTNAME

但是您的程序的用户(或您自己，但在另一台计算机上)可能无法将其作为环境变量访问，因此此解决方案可能对您没有用。在 Linux 上，不依赖环境变量来了解主机名的“规范”方法是执行程序“hostname”。