gcc/testsuite/gnat.dg/renaming8_pkg3.adb

   1 package body Renaming8_Pkg3 is
   2
   3   function Last_Index return Integer is
   4   begin
   5     return 16;
   6   end;
   7
   8 end Renaming8_Pkg3;