(the test case is very similar but not identical to the one in PR ada/34353;
the symptoms are different).
procedure test1 is
type T1 is record
X : Integer;
F : access function return T1;
end record;
begin
null;
end test1;
gnatmake -gnat05 test1
gcc-4.1 -c -gnat05 test1.adb
+===========================GNAT BUG DETECTED==============================+
| 4.1.3 20070518 (prerelease) (Debian 4.1.2-8) (x86_64-pc-linux-gnu) GCC
error:|
| in save_gnu_tree, at ada/utils.c:178 |
| No source file position information available |
gcc -c -gnat05 -x ada test1.ada
+===========================GNAT BUG DETECTED==============================+
| 4.2.2 (i686-unknown-linux-gnu) in save_gnu_tree, at ada/utils.c:176 |
| No source file position information available |
--
Summary: Bug box in save_gnu_tree, at ada/utils.c:176, in 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=34354
