gcc/testsuite/gnat.dg/enum2.adb

   1 -- { dg-do run }
   2 -- { dg-options "-gnat05 -O2" }
   3
   4 with Enum2_Pkg; use Enum2_Pkg;
   5
   6 procedure Enum2 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;