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.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,fbf5a4926ca8ebfd
X-Google-Attributes: gid103376,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news1.google.com!news.glorb.com!hwmnpeer01.lga!news.highwinds-media.com!hw-filter.phx!newsfe16.phx.POSTED!53ab2750!not-for-mail
Reply-To: "Nasser Abbasi" <nma@12000.org>
From: "Nasser Abbasi" <nma@12000.org>
Newsgroups: comp.lang.ada
References: <1186143806.109608.153890@m37g2000prh.googlegroups.com>
Subject: Re: GNAT quirk
Organization: home
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.3138
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3138
X-RFC2646: Format=Flowed; Original
Message-ID: <5h9vi.59414$vS1.4573@newsfe16.phx>
Date: Fri, 10 Aug 2007 19:36:48 -0700
NNTP-Posting-Host: 68.5.76.154
X-Complaints-To: admin@cox.net
X-Trace: newsfe16.phx 1186799809 68.5.76.154 (Fri, 10 Aug 2007 19:36:49 MST)
NNTP-Posting-Date: Fri, 10 Aug 2007 19:36:49 MST
Xref: g2news2.google.com comp.lang.ada:1398
Date: 2007-08-10T19:36:48-07:00
List-Id: <comp.lang.ada>


"Jerry" <lanceboyle@qwest.net> wrote in message 
news:1186143806.109608.153890@m37g2000prh.googlegroups.com...
> procedure bad is
>    a : Long_Float := 3.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
>
>

fyi, this compiles fine in gnat 2007.

Nasser