------- Comment #2 from pinskia at gcc dot gnu dot org 2006-03-02 16:19 -------
__builtin_memcpy (&_init->protocol_characteristics.F, &T52s.F, 30);
----
Reduced testcase:
package DATA is
type UNSIGNED_8 is new INTEGER range 0 .. (2 ** 8) - 1;
for UNSIGNED_8'SIZE use 8;
type ADDRESS_T is array (1 .. 4) of UNSIGNED_8;
type IPM_PROTOCOL_CHARACTERISTICS_T is record
IPM_ADDRESS_1 : ADDRESS_T;
end record;
for IPM_PROTOCOL_CHARACTERISTICS_T use record
IPM_ADDRESS_1 at 0 range 0 .. 4 * 8 - 1;
end record;
type PROTOCOL_T is (LLC, IPM);
type PROTOCOL_CHARACTERISTICS_T (PROTOCOL : PROTOCOL_T := IPM) is record
case PROTOCOL is
when LLC =>
MULTICAST_ADDRESS_1 : STRING(1 .. 14);
when IPM =>
IPM_PROTOCOL_CHARACTERISTICS : IPM_PROTOCOL_CHARACTERISTICS_T;
end case;
end record;
type DATA_T is record
PROTOCOL_CHARACTERISTICS : PROTOCOL_CHARACTERISTICS_T;
end record;
for DATA_T use record
PROTOCOL_CHARACTERISTICS at 0 range 0 .. 33 * 8 - 1;
end record;
end DATA;
--
pinskia at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Keywords| |ice-on-valid-code
Known to fail| |4.1.0 4.2.0
Known to work| |4.0.3
Last reconfirmed|0000-00-00 00:00:00 |2006-03-02 16:19:25
date| |
Summary|Compiler crash when 'use' |[4.1/4.2 Regression]
|clause for ADA record is |Compiler crash when 'use'
|defined |clause for ADA record is
| |defined
Target Milestone|--- |4.1.1
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26529
