gcc/testsuite/gnat.dg/opt22_pkg.adb

   1 package body Opt22_Pkg is
   2
   3    procedure Fail is
   4    begin
   5       raise Constraint_Error;
   6    end;
   7
   8    procedure Put (S : String) is
   9    begin
  10       if S /= "the message" then
  11          raise Program_Error;
  12       end if;
  13    end;
  14
  15 end Opt22_Pkg;