gcc/testsuite/gnat.dg/inline11_pkg.adb

   1 with Ada.Text_IO; use Ada.Text_IO;
   2
   3 package body Inline11_Pkg is
   4
   5   function My_Img (I : Integer) return String is
   6   begin
   7     return I'Img;
   8   end;
   9
  10   procedure Trace (I : Integer) is
  11   begin
  12     Put_Line (My_Img (I));
  13   end;
  14
  15 end Inline11_Pkg;