＜GET_ENVIRONMENT_VARIABLE Example Program＞

Program get_environment_variable_example
  Integer n
  Character(:), Allocatable :: logname
  Call Get_Environment_Variable(Name='LOGNAME',Length=n)
  If (n==0) Then
    Print *, 'Environment variable LOGNAME not found'
  Else
    Allocate(Character(n) :: logname)
    Call Get_Environment_Variable(Name='LOGNAME',Value=logname)
    Print *, 'Login name is "', logname, '"'
  End If
End Program

---

■ Execution Results

If the user is logged in as “Local User”, the result is likely to be:

 Login name is "Local User"