gcc/testsuite/gnat.dg/inline18_gen3.adb

   1 package body Inline18_Gen3 is
   2
   3   package body Inner_G is
   4
   5     function Next (Position : Index_T) return Index_T is
   6     begin
   7       return Position;
   8     end;
   9
  10   end Inner_G;
  11
  12 end Inline18_Gen3;