--
-- $Id$
--

with Ada.Text_IO; use Ada.Text_IO;

procedure ExceptionTest is
begin
   begin
      Put_Line ("Raising Constraint_Error");
      raise Constraint_Error;
   exception
      when others =>
         Put_Line ("Caught Constraint_Error -- inner");
   end;
exception
   when others =>
     Put_Line ("Caught Constraint_Error -- outer -- not OK");
end ExceptionTest;