1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/tail_call_p.ads b/gcc/testsuite/gnat.dg/tail_call_p.ads
new file mode 100644
index 000000000..1665bc30c
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/tail_call_p.ads
@@ -0,0 +1,13 @@
+package Tail_Call_P is
+
+  type T is new Natural;
+
+  type Index is (First, Second);
+
+  type A is array (Index) of T;
+
+  My_Array : A := (0, 0);
+
+  procedure Insert (Into : A; Element : T; Value : T);
+
+end Tail_Call_P;