[Bug ada/25902] New: GNAT Bug Box, Assert_Failure in sem when using default box <> for invisible record component

["bauhaus at futureapps dot de" <gcc-bugzilla at gcc dot gnu dot org>]

(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