[Bug ada/15258] New: Legal Ada2005 program rejected in gcc 3.4 using gnatX

["ludovic dot brenta at insalien dot org" <gcc-bugzilla at gcc dot gnu dot org>]

package pak1 is
    type T1 is tagged null record;
end pak1;

limited with pak1;
package Test_99 is
    procedure p(x : access pak1.T1'Class);
end Test_99;

with pak1;
package body Test_99 is
    procedure p(x : access pak1.T1'Class) is
    begin
       null;
    end;
end Test_99;


gcc -c -gnatX test_99.adb
test_99.adb:4:17: not type conformant with declaration at test_99.ads:4
test_99.adb:4:17: type of "x" does not match

-- 
           Summary: Legal Ada2005 program rejected in gcc 3.4 using gnatX
           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
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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