package pak1 is
pragma elaborate_body;
type T1 is abstract tagged null record;
function f1 (x1: T1) return access integer is abstract;
end pak1;
package body pak1 is
procedure p2 (x2: T1) is
i: integer;
begin
i := f1(T1'class(x2)).all; -- line 6
end p2;
end pak1;
gnatmake -gnat05 pak1
gcc-4.1 -c -gnat05 pak1.adb
+===========================GNAT BUG DETECTED==============================+
| 4.1.3 20070518 (prerelease) (Debian 4.1.2-8) (x86_64-pc-linux-gnu) GCC
error:|
| in gnat_to_gnu_entity, at ada/decl.c:231 |
| Error detected at pak1.adb:6:12 |
gcc -c -gnat05 pak1.adb
+===========================GNAT BUG DETECTED==============================+
| 4.2.2 (i686-unknown-linux-gnu) in gnat_to_gnu_entity, at ada/decl.c:230 |
| Error detected at pak1.adb:6:12 |
--
Summary: Bug box in gnat_to_gnu_entity, at ada/decl.c:231
Product: gcc
Version: 4.1.0
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=34348
