1-- { dg-do compile } 2 3with Ada.Unchecked_Deallocation; 4 5package body Task3 is 6 procedure Destroy (Obj : in out Child_Wrapper) is 7 procedure Free is new Ada.Unchecked_Deallocation (Child, Child_Ptr); 8 begin 9 Free (Obj.Ptr); 10 end Destroy; 11end Task3; 12