------- Comment #7 from laurent at guerby dot net 2008-02-09 09:04 ------- And then this one:
--BEGIN exceptiontest3.adb with Ada.Text_IO; use Ada.Text_IO; procedure ExceptionTest3 is function F return Boolean is begin raise Constraint_Error; return True; end F; begin begin if F then Put_Line ("Not ok"); else Put_Line ("Not ok and bad value"); end if; exception when Constraint_Error => Put_Line ("Caught Constraint_Error -- inner"); when others => Put_Line ("not ok wrong exception"); end; exception when others => Put_Line ("Caught Constraint_Error -- outer -- not OK"); end ExceptionTest3; --END exceptiontest3.adb -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35143