From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,28dcfc3d6dc519b8
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-02-14 08:24:35 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news-was.dfn.de!news-koe1.dfn.de!news.rwth-aachen.de!not-for-mail
From: "Alexander Boucke" <alexb@lufmech.rwth-aachen.de>
Newsgroups: comp.lang.ada
Subject: Re: Renaming subprogram and default_expression
Date: Thu, 14 Feb 2002 17:24:24 +0100
Organization: Lehr- und Forschungsgebiet f. Mechanik
Message-ID: <a4goc2$5lj$1@nets3.rz.RWTH-Aachen.DE>
References: <mailman.1013687581.29134.comp.lang.ada@ada.eu.org>
 <87sn84i80s.fsf@deneb.enyo.de><a4gfvm$qek$1@nets3.rz.RWTH-Aachen.DE>
 <87zo2cgkib.fsf@deneb.enyo.de><a4gm4p$3fr$1@nets3.rz.RWTH-Aachen.DE>
 <87vgd0gin8.fsf@deneb.enyo.de>
NNTP-Posting-Host: 134.130.177.111
X-Trace: nets3.rz.RWTH-Aachen.DE 1013703874 5811 134.130.177.111 (14 Feb 2002
 16:24:34 GMT)
X-Complaints-To: abuse@rwth-aachen.de
NNTP-Posting-Date: 14 Feb 2002 16:24:34 GMT
X-Newsreader: Microsoft Outlook Express Unix 5.00.2013.1312
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2013.1312
Xref: archiver1.google.com comp.lang.ada:20009
Date: 2002-02-14T16:24:34+00:00
List-Id: <comp.lang.ada>

Right, even if I change the code as indicated, 3.14p does not compile...
>
>You can eliminate the integer type.  The minimal test case for GCC 3.1
>is:
>
>procedure Defaults is
>
>   procedure Original (X : Integer := -1);
                                    ^^^^
>   procedure Renamed (X : Integer := -1);
>
>   procedure Renamed (X : Integer := -1)
>     renames Original;
>
>   procedure Original (X : Integer := -1) is

                                    ^^^^^
>   begin
>      null;
>   end Original;
>
>begin
>   null;
>end Defaults;
>


Does not fail on boolean, character, float!