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,1bbd735358b2f08d,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1995-02-22 12:10:58 PST
Path: 
 nntp.gmd.de!stern.fokus.gmd.de!ceres.fokus.gmd.de!zib-berlin.de!Germany.EU.net!Belgium.EU.net!idefix.CS.kuleuven.ac.be!rc1.vub.ac.be!is2e!jydelr
From: jydelr@vub.ac.be (DELROEUX JEAN-YVES)
Newsgroups: comp.lang.ada
Subject: problem with type new limited private
Date: 22 Feb 1995 20:10:58 GMT
Organization: Brussels Free Universities (VUB/ULB), Belgium
Message-ID: <3ig5oi$1f8@rc1.vub.ac.be>
NNTP-Posting-Host: is2e.bfu.vub.ac.be.
X-Newsreader: TIN [version 1.2 PL2]
Date: 1995-02-22T20:10:58+00:00
List-Id: <comp.lang.ada>

Hello, I use this :


package pac_voit is

   type voit is new controlled with private;

   procedure ...


private

   type voit is
      record
         a : integer;
      end record;
end pac_voit;



 But when I compile with gnat 2.00 under warp, it give me the error :

 type voit must be declared as tagged.

   Why ????????

   I try to define voit as tagged, but it doesn't work. Can someone tell me what I can do ?

	Thanks for your help

	DELROEUX Jean - Yves