package pak1 is
type T1 is interface;
function f1 (x: access T1'class) return integer;
x1: integer := T1'Class (3).f1;
end pak1;
gnatmake -gnat05 pak1
gcc-4.1 -c -gnat05 pak1.ads
pak1.ads:4:31: no selector "f1" for type "T1'class" defined at line 2
gnatmake: "pak1.ads" compilation error
gcc -c pak1.ads -gnat05
+===========================GNAT BUG DETECTED==============================+
| 4.2.2 (i686-unknown-linux-gnu) Assert_Failure einfo.adb:508 |
| Error detected at pak1.ads:4:21 |
--
Summary: [4.2 regression] Bug box, Assert_Failure einfo.adb:508
on illegal Ada 2005 program
Product: gcc
Version: 4.2.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=34379
