QUIZ: To be or not to be (able to post)

[Geert Bosch <geert@gonzo.sun3.iaf.nl>]

OK, here is a nice question for all you Ada experts out there.
Why isn't the code below not legal? Or is it? If so, why?

   with Ada.Numerics.Elementary_Functions;
   procedure Renaming is

      function Sin (F : Float) return Float;

      function Sin (X : Float'Base) return Float'Base
	 renames Ada.Numerics.Elementary_Functions.Sin;

   begin
      null;
   end Renaming;

What does your favorite compiler say? And the others? ;-)

Regards,
   Geert