This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug ada/35143] Serious regression on ACATS results since 4.2.3
- From: "laurent at guerby dot net" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 9 Feb 2008 09:04:13 -0000
- Subject: [Bug ada/35143] Serious regression on ACATS results since 4.2.3
- References: <bug-35143-296@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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