[Bug ada/16083] New: Illegal program not detected, RM 3.9.2(13)

[ludovic dot brenta at insalien dot org]

-- RM 3.9.2(13)
-- dispatching operations cannot be added after a body.
procedure Test_248168 is
   package pak1 is
      type T1 is abstract tagged null record;
      procedure p1(x: in out T1) is abstract;
   end pak1;

   type T2 is new pak1.T1 with null record;

   protected type T3 is
   end T3;

   protected body T3 is
   end T3;

   procedure p1(x: in out T2) is    --ERROR: declared after body of T3
   begin
      null;
   end p1;

begin
   null;
end Test_248168;

I expect an error message like:
test_248168.adb:17:29: "T2" is frozen, primitive operation overridden too late

But the compiler says nothing.

-- 
           Summary: Illegal program not detected, RM 3.9.2(13)
           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=16083