summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/slice8_pkg2.ads
blob: a6eafc6aa18cfaea096e863e390cf65c7cccadb9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
generic

   Line_Length : Natural;
   Max_Lines   : Natural;

package Slice8_Pkg2 is

   Subtype Index      is Natural Range 0..Line_length;
   Subtype Line_Count is Natural Range 0..Max_Lines;

   Type Line (Size : Index := 0) is
   Record
      Data : String (1..Size);
   End Record;

   Type Lines is Array (Line_Count Range <>) of Line;

   Type Paragraph (Size : Line_Count) is
   Record
      Data : Lines (1..Size);
   End Record;

end Slice8_Pkg2;