[Bug ada/15916] New: Illegal program not detected, RM 12.4(7)

[ludovic dot brenta at insalien dot org]

-- RM 12.4(7)
-- For a generic formal object of mode in out, the actual shall be
-- a name that denotes a variable ...
package Test_247561 is
   type T1 is tagged null record;
   generic
      x1: in out T1'class;
   package pak2 is
   end pak2;

   y1: T1;
   package new_pak2 is
        new pak2(x1 => (T1'class(y1))); -- ERROR: expression, not variable
end Test_247561;


I expect:
test_247561.ads:13:27: actual for "x1" must be a variable

But I get nothing.

-- 
           Summary: Illegal program not detected, RM 12.4(7)
           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=15916