[Bug ada/34367] New: Bug box, Assert_Failure exp_ch4.adb:4550 on legal Ada 2005 program

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

package pak1 is
   type T1 is tagged limited null record;
   type T2 is limited interface;

   function f1 (x2: access T2'Class) return integer;

   type T3 is new T1 and T2 with record
      x1: integer := f1 (T3'Access); -- line 8, column 28 is the tick
   end record;

end pak1;

gnatmake -gnat05 pak1
gcc-4.1 -c -gnat05 pak1.ads
+===========================GNAT BUG DETECTED==============================+
| 4.1.3 20070518 (prerelease) (Debian 4.1.2-8) (x86_64-pc-linux-gnu)       |
| Assert_Failure exp_ch4.adb:4501                                          |
| Error detected at pak1.ads:8:28                                          |


gcc -c -gnat05 pak1.ads
+===========================GNAT BUG DETECTED==============================+
| 4.2.2 (i686-unknown-linux-gnu) Assert_Failure exp_ch4.adb:4550           |
| Error detected at pak1.ads:8:28                                          |


-- 
           Summary: Bug box, Assert_Failure exp_ch4.adb:4550 on legal Ada
                    2005 program
           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=34367