Sign in
gnu
/
gcc
/
730f52e05a1fb5c8cd92e352e9b191a6332be5c2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr96486.f90
blob: fdc7025d61c35d8f0fe5a134905b02b4968d170e [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program test
implicit
none
character
(
0
)
::
value
integer
::
l
,
stat
call get_environment_variable
(
"HOME"
,
value
,
length
=
l
,
status
=
stat
)
if
(
stat
.
ne
.-
1
)
stop
1
end
program test