1-- { dg-do compile } 2 3private with Ada.Containers.Ordered_Maps; 4with Ada.Containers.Ordered_Sets; 5with Ada.Unchecked_Deallocation; 6package private_with is 7 8 type String_Access is access String; 9 10 package Index_Sets is new Ada.Containers.Ordered_Sets 11 (Element_Type => Positive); 12 13 procedure Free is new Ada.Unchecked_Deallocation 14 (Object => String, 15 Name => String_Access); 16end; 17