gcc/testsuite/gnat.dg/uninit_func.adb


1
2
3
4
5
6
7
8
9
10
11
12
13

-- { 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;