1-- { dg-do run }
2-- { dg-options "-O2 -flto" { target lto } }
3
4with Lto6_Pkg; use Lto6_Pkg;
5
6procedure Lto6 is
7  type Enum is (A, B, C, D);
8  Table : array (B .. C, 1 .. 1) of F_String := (others => (others => Null_String));
9begin
10  Table := (others => (others => Null_String));
11end;
12