Subversion Repositories openrisc_2011-10-31

! { dg-do run }

! Test the getenv and get_environment_variable intrinsics.

! Ignore the return value because it's not supported/meaningful on all targets

program getenv_1

  implicit none

  character(len=101) ::  var

  character(len=*), parameter :: home = 'HOME'

  integer :: len, stat

  call getenv(name=home, value=var)

  call get_environment_variable(name=home, value=var, &

       length=len, status=stat)

end program getenv_1