[Bug ada/26111] New: Ada ICE in expand_assignment, at expr.c:3824

["laurent at guerby dot net" <gcc-bugzilla at gcc dot gnu dot org>]

Reported by marcin9@poczta.fm

$ cat marcin.adb
with ada.direct_io, ada.integer_text_io,ada.text_io;
use  ada.text_io,ada.integer_text_io;

procedure marcin is
   type powiaty is record
      nazwa :  integer;
      imie  :  integer;
   end record;
   package pliki is new ada.direct_io(powiaty);
   use     pliki;

   plik  : pliki.file_type;
--   p     : powiaty := (nazwa => 10, imie => 20);
--   n     : powiaty := (nazwa => 11, imie => 21);i
begin
 --  open(plik,out_file,"dane.bin");
null;
--   if end_of_file(plik) then put("plik pusty"); end if;
end marcin;
$ gcc -c marcin.adb
+===========================GNAT BUG DETECTED==============================+
| 4.0.2 (i686-pc-linux-gnu) in expand_assignment, at expr.c:3824           |
| Error detected at marcin.adb:19:5                                        |

Note that this compiles fine with gcc version 4.1.0 20060128 (prerelease)
and gcc version 4.2.0 20060126 (experimental), so this is 4.0 only.


-- 
           Summary: Ada ICE in expand_assignment, at expr.c:3824
           Product: gcc
           Version: 4.0.2
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: laurent at guerby dot net


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26111