Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
uninit_func.adb
blob: ff5427ad7c9794a7d0797ea46839586ba8bfdd3c [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-O -Wall"
}
function
uninit_func
(
A
,
B
:
Boolean
)
return
Boolean
is
C
:
Boolean
;
begin
if
A
then
C
:=
False
;
elsif
B
then
C
:=
True
;
end
if
;
return
C
;
--
{
dg
-
warning
"may be used uninitialized"
}
end
;