------- Comment #1 from ludovic at ludovic-brenta dot org 2007-12-07 15:21 ------- Second test case that triggers the same bug box:
package pak2 is type T1 is interface; function f1 (x: access T1) return integer; x1: integer := T1'Class (3).f1; end pak2; gnatmake -gnat05 pak2 gcc-4.1 -c -gnat05 pak2.ads pak2.ads:4:21: expected an access type with designated type "T1" defined at line 2 pak2.ads:4:21: found type "T1'class" defined at line 2 gcc -c pak2.ads -gnat05 +===========================GNAT BUG DETECTED==============================+ | 4.2.2 (i686-unknown-linux-gnu) Assert_Failure einfo.adb:508 | | Error detected at pak2.ads:6:21 | -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34379