2 ! Test the getenv and get_environment_variable intrinsics.
3 ! Ignore the return value because it's not supported/meaningful on all targets
6 character(len=101) :: var
7 character(len=*), parameter :: home = 'HOME'
9 call getenv(name=home, value=var)
10 call get_environment_variable(name=home, value=var, &
11 length=len, status=stat)