gcc/testsuite/gnat.dg/access8_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 Access8_Pkg is

   type Discriminant is record
      Component : Integer := 6;
   end record;

   type Object (D : access Discriminant)
     is tagged limited private;

   function Get return Object;
   function Get_Access return access Object;
private
   type Object (D : access Discriminant)
    is new Ada.Finalization.Limited_Controlled with null record;
   overriding procedure Initialize (O : in out Object);
   overriding procedure Finalize (O : in out Object);
end;