[Bug ada/26529] [4.1/4.2 Regression] Compiler crash when 'use' clause for ADA record is defined

["pinskia at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- 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