[Bug ada/16079] New: Illegal program not detected, RM 8.2(9)

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

--  RM 8.2(19)
--  The visible part of a package, task unit, or protected unit
--  consists of declarations in the program unit's declaration other
--  than those following the reserved word private, if any
package Test_247573 is
   generic
      x: integer;
      type T1 is (<>);
   package pak1 is
   end pak1;

   generic
      with package the_pak1 is new pak1(<>);
   package pak2 is
   end pak2;

   package pak3 is
      package new_pak1 is new pak1(3, boolean);
      package new_pak2 is new pak2(new_pak1);
      y: integer := new_pak1.x;   --ERROR: x not visible
      z: new_pak1.T1;             --ERROR: T1 not visible
   end pak3;
end Test_247573;


I expect error messages like:
test_247573.ads:20:29: "x" is not a visible entity of "new_pak1"
test_247573.ads:21:18: "T1" is not a visible entity of "new_pak1"

But the compiler is silent.

-- 
           Summary: Illegal program not detected, RM 8.2(9)
           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=16079