--
-- $Id$
--

with Ada.Text_IO; use Ada.Text_IO;

procedure ExceptionTest is
begin
   begin
      Put_Line ("*** Exception Test 1 ***");
      Put_Line ("Raising Constraint_Error");
      raise Constraint_Error;
      --  Do not get here
   exception
      when others =>
         Put_Line ("Caught Constraint_Error -- inner");
         Put_Line ("*** END OF Exception Test 1 ***");
   end;
exception
   when others =>
     Put_Line ("Caught Constraint_Error -- outer -- not OK");
end ExceptionTest;