(Same with 4.1.0 20060119)
$ gnatmake -gnat05 rooms.adb
gcc -c -gnat05 rooms.adb
+===========================GNAT BUG DETECTED==============================+
| 4.2.0 20060121 (experimental) (i686-pc-linux-gnu) Assert_Failure sem.adb:549|
| Error detected at rooms.adb:5:43 |
| Please submit a bug report; see http://gcc.gnu.org/bugs.html. |
| Use a subject line meaningful to you and us to track the bug. |
| Include the entire contents of this bug box in the report. |
| Include the exact gcc or gnatmake command that you entered. |
| Also include sources listed below in gnatchop format |
| (concatenated together with no headers between files). |
+==========================================================================+
Please include these source files with error report
Note that list may not be accurate in some cases,
so please double check that the problem can still
be reproduced with the set of files listed.
rooms.adb
rooms.ads
doors.ads
compilation abandoned
gnatmake: "rooms.adb" compilation error
$
package Doors is
type DOOR is tagged private;
private
type DOOR is tagged record
is_opened: BOOLEAN := False;
end record;
end Doors;
with Doors;
package Rooms is
type ROOM is tagged record
the_door: Doors.DOOR;
end record;
function make return ROOM;
end Rooms;
package body Rooms is
function make return ROOM is
begin
return ROOM'(the_door => Doors.DOOR'(is_opened => <>));
end make;
end Rooms;
--
Summary: GNAT Bug Box, Assert_Failure in sem when using default
box <> for invisible record component
Product: gcc
Version: 4.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: ada
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: bauhaus at futureapps dot de
GCC build triplet: i686-pc-linux-gnu
GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25902
