gcc/testsuite/gnat.dg/controlled6_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

with Ada.Finalization;

generic

   type T is private;

package Controlled6_Pkg is

   type Node_Type is record
      Item : T;
   end record;

   type Node_Access_Type is access Node_Type;

end Controlled6_Pkg;