gcc/testsuite/gnat.dg/discr8_pkg2.ads

   1 with Discr8_Pkg3; use Discr8_Pkg3;
   2
   3 package Discr8_Pkg2 is
   4
   5   Max : constant Natural := Value;
   6
   7   type List_T is array (Natural range <>) of Integer;
   8
   9   type L is record
  10     List : List_T (1 .. Max);
  11   end record;
  12
  13 end Discr8_Pkg2;