Elemantary Ada question

[reinert@ola.npolar.no (Reinert Korsnes)]

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