Simple Question 3

["Stephen Cole" <s_k_cole@yahoo.com>]

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?