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=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,c40a80666be78948,start
X-Google-Attributes: gid103376,public
From: reinert@ola.npolar.no (Reinert Korsnes)
Subject: Elemantary Ada question
Date: 2000/11/28
Message-ID: <9008uq$hmi$1@news.uit.no>#1/1
X-Deja-AN: 698653488
X-Complaints-To: usenet@news.uit.no
X-Trace: news.uit.no 975415066 18130 158.39.64.31 (28 Nov 2000 12:37:46 GMT)
Organization: University of Troms�
Reply-To: Reinert.Korsnes@npolar.no
NNTP-Posting-Date: 28 Nov 2000 12:37:46 GMT
Newsgroups: comp.lang.ada
Date: 2000-11-28T12:37:46+00:00
List-Id: <comp.lang.ada>

Hi,

Given the following simple test program:

with Text_IO;
use  Text_IO;
procedure Atest1 is
   type E1 is (a, b, c);
   package E1_Io is new Text_IO.Enumeration_Io (E1);
   use E1_Io;

   A : Float;
   begin
    Put(E1'First);
end Atest1;

Can anybody explain me why "A : Float" conflicts
with the declaration:  "type E1 is (a, b, c);" ?

reinert

-- 
Norwegian Polar Institute
Polar Environment Center
N-9296 Tromso
Norway
Fax: +47 77750501

http://geophys.npolar.no/~reinert/personal.html