1 files changed, 13 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gnat.dg/ancestor_type.adb b/gcc-4.9/gcc/testsuite/gnat.dg/ancestor_type.adb
new file mode 100644
index 000000000..b5e9e2c5c
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gnat.dg/ancestor_type.adb
@@ -0,0 +1,13 @@
+-- { dg-do compile }
+
+package body Ancestor_Type is
+
+   package body B is
+      function make return T is
+      begin
+         return (T with n => 0);  -- { dg-error "expect ancestor" }
+      end make;
+
+   end B;
+
+end Ancestor_Type;