Not sure the declaration below is legal, but it ICEs anyway. package pak1 is type T1(x1: integer) is record x2: integer := T1.x1; end record; end pak1;
gcc-4.1 -c pak1.ads +===========================GNAT BUG DETECTED==============================+ | 4.1.3 20070518 (prerelease) (Debian 4.1.2-8) (x86_64-pc-linux-gnu) GCC error:| | in gimplify_expr, at gimplify.c:4519 | | No source file position information available | +===========================GNAT BUG DETECTED==============================+ | 4.2.2 (i686-unknown-linux-gnu) in gimplify_expr, at gimplify.c:5888 | | No source file position information available | gcc-4.3 -c pak1.ads +===========================GNAT BUG DETECTED==============================+ | 4.3.1 20080309 (prerelease) (x86_64-pc-linux-gnu) GCC error: | | in gimplify_expr, at gimplify.c:6120 | | Error detected around pak1.ads:3 | -- Summary: ICE in gimplify_expr, at gimplify.c:6120 Product: gcc Version: 4.1.2 Status: UNCONFIRMED Severity: normal Priority: P3 Component: ada AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: ludovic at ludovic-brenta dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35645