gcc/testsuite/gnat.dg/slice8_pkg2.ads

   1 generic
   2
   3    Line_Length : Natural;
   4    Max_Lines   : Natural;
   5
   6 package Slice8_Pkg2 is
   7
   8    Subtype Index      is Natural Range 0..Line_length;
   9    Subtype Line_Count is Natural Range 0..Max_Lines;
  10
  11    Type Line (Size : Index := 0) is
  12    Record
  13       Data : String (1..Size);
  14    End Record;
  15
  16    Type Lines is Array (Line_Count Range <>) of Line;
  17
  18    Type Paragraph (Size : Line_Count) is
  19    Record
  20       Data : Lines (1..Size);
  21    End Record;
  22
  23 end Slice8_Pkg2;