Re: Renaming subprogram and default_expression

[Christoph Grein <christoph.grein@eurocopter.com>]

> From: Florian Weimer <fw@deneb.enyo.de>
> 
> Is anything wrong with the following program?  Maybe I'm just
> confused, but it looks perfectly legal to me.
> 
> procedure Defaults is
> 
>    type Typ is new Integer;
> 
>    procedure Original (X : Typ);        <--- declaration
>    procedure Renamed (X : Typ := -1);   <--- declaration
>    
>    procedure Renamed (X : Typ := -1)    <--- renaming as body
>      renames Original;
>    
>    procedure Original (X : Typ) is      <--- proper body
>    begin
>       null;
>    end Original;
> 
> begin
>    null;
> end Defaults;

So it looks OK. Did some compiler complain?