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
