[Bug ada/32981] New: GNAT reports "unimplemented attribute" on Long_Float'Truncation( )

["other at bauck dot net" <gcc-bugzilla at gcc dot gnu dot org>]

procedure bad is 
    a : Long_Float := 2.0; 
begin 
    for i in 1 .. Integer(Long_Float'Truncation(a)) loop 
        null; 
    end loop; 
end bad;

bad.adb:4:37: unimplemented attribute 
gnatmake: "bad.adb" compilation error 



procedure good is 
begin 
    for i in 1 .. Integer(Long_Float'Truncation(2.0)) loop 
        null; 
    end loop; 
end good; 

Compiles OK. 



procedure gooder is 
    a    : Long_Float := 2.0; 
    idum : Integer; 
begin 
    idum := Integer(Long_Float'Truncation(a)); 
    for i in 1 .. idum loop 
        null; 
    end loop; 
end gooder; 

Compiles OK. 




My system = Mac OS X 10.4.10 G4 Powerbook (PPC); GNAT version = 4.2 from
www.macada.org.


-- 
           Summary: GNAT reports "unimplemented attribute" on
                    Long_Float'Truncation( )
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: other at bauck dot net


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32981