summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/pak.ads
blob: e1e2d0d4d63c9be46d7b3123733dd806bc0dc9aa (plain)
1
2
3
4
5
6
7
with Ada.Finalization;
package Pak is
   type T is new Ada.Finalization.Controlled with null record;
   procedure Initialize (X : in out T);
   procedure Finalize (X : in out T);
   procedure Assign (X : out T'Class);
end Pak;