1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/private_with.ads b/gcc/testsuite/gnat.dg/specs/private_with.ads
new file mode 100644
index 000000000..f339e5a43
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/private_with.ads
@@ -0,0 +1,16 @@
+--  { dg-do compile }
+
+private with Ada.Containers.Ordered_Maps;
+with Ada.Containers.Ordered_Sets;
+with Ada.Unchecked_Deallocation;
+package private_with is
+
+   type String_Access is access String;
+
+   package Index_Sets is new Ada.Containers.Ordered_Sets
+     (Element_Type => Positive);
+
+   procedure Free is new Ada.Unchecked_Deallocation
+     (Object => String,
+      Name   => String_Access);
+end;