gcc/testsuite/gnat.dg/controlled6_pkg.ads

   1 with Ada.Finalization;
   2
   3 generic
   4
   5    type T is private;
   6
   7 package Controlled6_Pkg is
   8
   9    type Node_Type is record
  10       Item : T;
  11    end record;
  12
  13    type Node_Access_Type is access Node_Type;
  14
  15 end Controlled6_Pkg;