Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr96486.f90
blob: dbf740663b2cd5390492fe4afd17d461ad246955 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program test
implicit
none
character
(
0
)
::
value
integer
::
l
,
stat
call get_environment_variable
(
"PATH"
,
value
,
length
=
l
,
status
=
stat
)
if
(
stat
.
ne
.-
1
)
stop
1
end
program test