[Bug ada/34380] New: [4.2 regression] Bug box, Assert_Failure elists.adb:167 on illegal Ada 2005 program

["ludovic at ludovic-brenta dot org" <gcc-bugzilla at gcc dot gnu dot org>]

This is the same bug box as in PR ada/34344 but it happens only in 4.2.2 and
with a different test case; therefore I think this is a different bug.

package pak3 is
   type T1 is interface;
   type T2 is null record;
   x2: T2;
   function f1 (x: access T1'class) return integer;
   x1: integer := T1'Class (x2).f1;
end pak3;

gcc-4.1 -c -gnat05 pak3.ads
pak3.ads:6:32: no selector "f1" for type "T1'class" defined at line 2

gcc -c pak3.ads -gnat05
+===========================GNAT BUG DETECTED==============================+
| 4.2.2 (i686-unknown-linux-gnu) Assert_Failure elists.adb:167             |
| Error detected at pak3.ads:8:21                                          |


-- 
           Summary: [4.2 regression] Bug box, Assert_Failure elists.adb:167
                    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=34380