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,FREEMAIL_FROM,XPRIO
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,d80cdc1b3ff5b2f9,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-10-11 07:24:28 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.ems.psu.edu!news.cis.ohio-state.edu!news.maxwell.syr.edu!feeder.qis.net!dispose.news.demon.net!demon!diablo.dera.gov.uk!dera!not-for-mail
From: "Stephen Cole" <s_k_cole@yahoo.com>
Newsgroups: comp.lang.ada
Subject: Simple Question 3
Date: Thu, 11 Oct 2001 15:28:31 +0100
Organization: Defence Evaluation & Research Agency
Message-ID: <9q49v5$6dj$1@trog.dera.gov.uk>
NNTP-Posting-Host: 146.80.10.150
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Xref: archiver1.google.com comp.lang.ada:14263
Date: 2001-10-11T15:28:31+01:00
List-Id: <comp.lang.ada>

Hi

Question 3.....

package MyTstTypes is
   type MyRcd is tagged
      record
         a: Integer;
         b: Float;
      end record;

   function Unit return MyRcd;

   type MyNewRcd is new MyRcd with
      record
         c: Integer;
      end record;

--   function Unit return MyNewRcd;

   type MyNewRcd2 is new MyNewRcd with
      record
         d: Float;
      end record;

end MyTstTypes;

The compiler complains with the following text....

"mytsttypes.ads:10:09: type must be declared abstract or "Unit" overridden"

It wants me to define a version of Unit() for each derived type?! Why?