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,604e0f87aa06eab6
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-03-27 13:26:13 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!easynet-quince!easynet.net!teaser.fr!wanadoo.fr!not-for-mail
From: Pascal Obry <p.obry@wanadoo.fr>
Newsgroups: comp.lang.ada
Subject: Re: Imitation is the sincerest form of flattery
Date: 27 Mar 2003 22:25:48 +0100
Organization: Home - http://perso.wanadoo.fr/pascal.obry
Message-ID: <u4r5oa4df.fsf@wanadoo.fr>
References: <mailman.0.1047662587.16695.comp.lang.ada@ada.eu.org>
 <7eee7v4hpvj0i5s345uonlen5315rhiau8@4ax.com>
 <b59ja5$5qc$2@a1-hrz.uni-duisburg.de>
 <p2vi7vs64p33mpnbsfsn43cvh72l44tm95@4ax.com>
 <4dkea.75440$gi1.38045@nwrdny02.gnilink.net>
 <vqil7v81l8p8ocbv2ke9ectl8l33rr3gs8@4ax.com>
 <5115eb96.0303220201.44527637@posting.google.com>
 <b5jrs4$2a6fho$1@ID-77047.news.dfncis.de>
 <5115eb96.0303232053.2fcc7d78@posting.google.com>
 <b5nhiq$29oaug$2@ID-77047.news.dfncis.de>
 <5115eb96.0303242148.57027600@posting.google.com>
 <6Y_fa.5102$kU.534@nwrdny01.gnilink.net>
 <wccn0jjv1jo.fsf@shell01.TheWorld.com>
 <m91ga.5486$kU.3292@nwrdny01.gnilink.net>
 <b5qcnq$2bshmf$1@ID-77047.news.dfncis.de>
 <GxIga.15773$hB5.8010@nwrdny02.gnilink.net>
NNTP-Posting-Host: avelizy-103-1-5-7.abo.wanadoo.fr
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: news-reader12.wanadoo.fr 1048800373 2791 80.13.115.7 (27 Mar 2003
 21:26:13 GMT)
X-Complaints-To: abuse@wanadoo.fr
NNTP-Posting-Date: 27 Mar 2003 21:26:13 GMT
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.95
Xref: archiver1.google.com comp.lang.ada:35773
Date: 2003-03-27T21:26:13+00:00
List-Id: <comp.lang.ada>


"Frank J. Lhota" <NOSPAM.lhota.adarose@verizon.net> writes:

> AFAIK (and my testing seems to confirm this) if we have the function
> 
>      function Max( X, Y : An_Integer_Type ) return An_Integer_Type;
> 
> defined in the same package as An_Integer_Type, and if we derive a type
> New_Integer from An_Integer_Type, i.e.
> 
>     type New_Integer is new An_Integer_Type;
> 
> then New_Integer inherits Max from An_Integer_Type, i.e. there is an
> implicit function

That's right. An Ada feature often forgotten...

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|         http://perso.wanadoo.fr/pascal.obry
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595