gcc/testsuite/gnat.dg/opt15_pkg.adb

   1 package body Opt15_Pkg is
   2
   3   procedure Trace_Non_Inlined is
   4   begin
   5     raise Program_Error;
   6   end;
   7
   8   procedure Trace_Inlined is
   9   begin
  10     Trace_Non_Inlined;
  11   end;
  12
  13 end Opt15_Pkg;