gcc/testsuite/gnat.dg/discr48_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

with Ada.Finalization;

package Discr48_Pkg is

   type XString is new Ada.Finalization.Controlled with record
      B : Boolean;
   end record;

   Null_XString : constant XString := (Ada.Finalization.Controlled with B => False);

   type XString_Array is array (Natural range <>) of XString;

   type Rec (Count : Positive) is record
      Seps : XString_Array (2 .. Count);
   end record;

   type Rec_Access is access all Rec;

end Discr48_Pkg;