[Bug ada/38394] New: clashing assembler symbols

["michael dot voelske at medien dot uni-weimar dot de" <gcc-bugzilla at gcc dot gnu dot org>]

The following program results in clashing assembler symbols when compiled
with gnat-4.3.  This does not happen when using gnat-4.2.

-- file: pkg.ads --
package Pkg is
   procedure Foo;

   Max : Natural := 1;
   type Arr is array(Natural range 0..Max) of Natural;

   type T is record
         A : Arr := (others => 0); 
      end record;
end;

-- file: pkg.adb --
package body Pkg is
   procedure Foo is
      X, Y : T;
   begin
      null;
   end;
end;

-- compilation --

gcc-4.3 -c pkg.adb
/tmp/ccP5RYSw.s: Assembler messages:
/tmp/ccP5RYSw.s:76: Error: symbol `pkg__foo__T3scc___U' is already defined
End of compilation
gnatmake: "pkg.adb" compilation error


-- 
           Summary: clashing assembler symbols
           Product: gcc
           Version: 4.3.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: michael dot voelske at medien dot uni-weimar dot de


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