[Bug ada/13370] New: 'constant String' with 'pragma Machine_Attribute' triggers ICE

["berndtrog at yahoo dot com" <gcc-bugzilla at gcc dot gnu dot org>]

How-To-Repeat:

gcc -c gimme_bug_box.adb

+===========================GNAT BUG DETECTED==============================+
| 3.4 20031209 (experimental) (i686-pc-linux-gnu) Storage_Error stack overflow
(or erroneous memory access)|
| Error detected at system.ads:150:5                                       |
| Please submit a bug report; see http://gcc.gnu.org/bugs.html.            |
| 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).                   |
+==========================================================================+



procedure Gimme_Bug_Box 
is
   procedure Null_Proc;

   Foo : constant String := "bite me";

   pragma Machine_Attribute (Entity         => Null_Proc,
                             Attribute_Name => Foo);

   procedure Null_Proc
   is
   begin
      null;
   end;
   
begin
   null;
end;



Configured with: ../gcc/configure --prefix=/build/gcc34-20031209
--enable-languages=ada,c --disable-nls

-- 
           Summary: 'constant String' with 'pragma Machine_Attribute'
                    triggers ICE
           Product: gcc
           Version: 3.4
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: berndtrog at yahoo dot com
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


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