gcc/testsuite/gnat.dg/specs/private_with.ads

   1 --  { dg-do compile }
   2
   3 private with Ada.Containers.Ordered_Maps;
   4 with Ada.Containers.Ordered_Sets;
   5 with Ada.Unchecked_Deallocation;
   6 package 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);
  16 end;