gcc/testsuite/gnat.dg/inline18_gen1.ads

   1 generic
   2
   3   type Bound_T is private;
   4
   5 package Inline18_Gen1 is
   6
   7   type T is private;
   8   function Complete return T with Inline_Always;
   9
  10 private
  11
  12   type T is array (0 .. 1) of Bound_T;
  13
  14 end Inline18_Gen1;