blob: c990575ebf17a8b810c77ac8bf556e302420ec03 [file] [log] [blame]
-- { 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;