14 lines
299 B
Ada
14 lines
299 B
Ada
-- { dg-do compile }
|
|
-- { dg-options "-Wuninitialized" }
|
|
|
|
with Ada.Text_IO; use Ada.Text_IO;
|
|
|
|
procedure Warn18 is
|
|
type Set is array (Natural range <>) of Boolean;
|
|
pragma Pack (Set);
|
|
|
|
O : constant Set (0 .. 255) := (28 => True, others => False);
|
|
begin
|
|
Put_Line (O (1)'Img);
|
|
end Warn18;
|