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