[Bug ada/34469] Many ACATS failures not in 4.2.2 [regression]

[laurent at guerby dot net]

------- Comment #3 from laurent at guerby dot net  2007-12-14 21:35 -------
Now let's hope someone knowledgeable about exception handling will step in :).

with Ada.Text_IO; use Ada.Text_IO;
procedure P is
begin
   begin
      raise Constraint_Error;
   exception
      when others =>
         Put_Line ("catch1");
   end;
exception
   when others =>
      Put_Line ("catch2");
end P;

With native x86_64:

$ gnatmake p
$ ./p
catch1
$ 


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34469