------- Comment #1 from ludovic at ludovic-brenta dot org 2007-10-05 23:09
-------
Reduced test case:
package pak1 is
package pak2 is
type T2 is tagged null record;
end pak2;
type T1 is record
a: access pak2.T2'Class;
end record;
end 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 sinfo.adb:351 |
| Error detected at pak1.ads:5:4 |
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33071
