gcc/testsuite/gnat.dg/generic_inst8_g.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

generic
   N : Natural;
package Generic_Inst8_G is

   generic
      type T is private;
   package First is
      function Get (Data : T) return T with Inline;
   end First;

   generic
      type T is private;
   package Second is
      package My_First is new First (T);
   end Second;

end Generic_Inst8_G;