Reported by [EMAIL PROTECTED]
$ 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
