gcc/testsuite/gnat.dg/concat5_pkg1.adb

   1 with Concat5_Pkg2; use Concat5_Pkg2;
   2
   3 package body Concat5_Pkg1 is
   4
   5   procedure Make_Failed (S : String);
   6   pragma No_Inline (Make_Failed);
   7
   8   procedure Make_Failed (S : String) is
   9   begin
  10     Compare (S);
  11   end;
  12
  13   procedure Scan (S : String) is
  14   begin
  15     Make_Failed ("option " & S & " should start with '--'");
  16   end;
  17
  18 end Concat5_Pkg1;