gcc/testsuite/gnat.dg/lto6.adb

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