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