testcase from Guerby, reduced from c85009a
procedure PP2 is
MY_EXCEPTION : EXCEPTION;
MY_EXCEPTION2 : EXCEPTION RENAMES MY_EXCEPTION;
I : INTEGER := 1;
begin
begin
RAISE MY_EXCEPTION;
exception
WHEN MY_EXCEPTION2 =>
NULL;
WHEN OTHERS =>
null;
end;
end;
+===========================GNAT BUG
DETECTED==============================+
| 4.0.0 20041127 (experimental) (powerpc-apple-darwin7.6.0) GCC error: |
| in gnat_to_gnu_entity, at ada/decl.c:286 |
| Error detected at pp2.adb:10:10 |
| Please submit a bug report; see http://gcc.gnu.org/bugs.html. |
| Include the entire contents of this bug box in the report. |
| Include the exact gcc or gnatmake command that you entered. |
| Also include sources listed below in gnatchop format |
| (concatenated together with no headers between files). |
+==============================================================
============+
--
Summary: 105 acats failure due to ICE in gnat_to_gnu_entity, at
ada/decl.c:286
Product: gcc
Version: 4.0.0
Status: UNCONFIRMED
Keywords: ice-on-valid-code
Severity: normal
Priority: P2
Component: ada
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: pinskia at gcc dot gnu dot org
CC: gcc-bugs at gcc dot gnu dot org
GCC target triplet: powerpc-darwin
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18691
