[Bug ada/34379] [4.2 regression] Bug box, Assert_Failure einfo.adb:508 on illegal Ada 2005 program

[ludovic at ludovic-brenta dot org]

------- 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