package body Foo is
   procedure Bar (I, J : Integer) is
   begin
      declare
         subtype Lol is Integer range 0 .. 10;
      begin
         null;
      end;
   end Bar;
end Foo;
