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