[Bug ada/16077] New: Wrong output from legal program, pragma Import (Ada)

[ludovic dot brenta at insalien dot org]

package pak is
   procedure p1;
   procedure p1(x: integer);
   pragma export(ada, p1);
end pak;

with text_io; use text_io;
package body pak is
   procedure p1 is
   begin
      put_line("passed");
   end;

   procedure p1(x: integer) is
   begin
      put_line("failed: wrong p1 called");
   end;
end pak;

with pak;
procedure Test_247571 is
   procedure p1;
   pragma import(ada, p1);
begin
   p1;
end Test_247571;


Instead of printing "passed", the program says "failed: wrong p1 called".

-- 
           Summary: Wrong output from legal program, pragma Import (Ada)
           Product: gcc
           Version: 3.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: ludovic dot brenta at insalien dot org
                CC: gcc-bugs at gcc dot gnu dot org


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