procedure test1 is
type T1 is record
F : access function return T1;
end record;
begin
null;
end test1;
gnatmake -gnat05 test1
gcc-4.1 -c -gnat05 test1.adb
gcc-4.1: Internal error: Segmentation fault (program gnat1)
Same symptoms with 4.2.2.
--
Summary: Internal error in legal Ada 2005 program, anonymous
access-to-subprogram type
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=34353
