1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/warn6.ads b/gcc/testsuite/gnat.dg/warn6.ads
new file mode 100644
index 00000000000..e7495ead101
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/warn6.ads
@@ -0,0 +1,15 @@
+package Warn6 is
+
+  package Q is
+    type T is private; -- this is the trigger
+  private
+    type T is access Integer;
+    pragma No_Strict_Aliasing (T);
+
+  end Q;
+
+  subtype Q_T is Q.T;
+
+  procedure Dummy;
+
+end Warn6;