gcc/testsuite/gnat.dg/tail_call_p.ads

   1 package Tail_Call_P is
   2
   3   type T is new Natural;
   4
   5   type Index is (First, Second);
   6
   7   type A is array (Index) of T;
   8
   9   My_Array : A := (0, 0);
  10
  11   procedure Insert (Into : A; Element : T; Value : T);
  12
  13 end Tail_Call_P;