Re: Help ... CONSTRAINT_ERROR

[skamn@my-deja.com]

In article <81vfu6$sem$1@tobruk.sydney.gecm.com>,
  "jxredi" <jxredi@gecms.com.au> wrote:
>
> Hi,
> I was wondering if you could help me out with this problem (using
ADA83) :
>
> package R_IO is new TEXT_IO.FLOAT_IO(Float);
> NUM : STRING :=   "hi there";
> FNUM : Float := 0.75;
> R_IO.PUT(NUM,FNUM);   -- this is where the problem is ... but what's
wrong
> ??
>
> ------------

> RUN-TIME ERROR :     "constraint_error".
>
> ----
> Cheers,
> Jxredi.
>
>This should work:
with text_IO;
procedure try is
        package Float_IO is new Text_IO.Float_IO (num => float);
        NUM : string (1..8) := "hi there";
        FNUM : float := 0.75;
begin
        Text_IO.put (NUM);
        Text_IO.put(" ");
        Float_IO.put (FNUM, fore => 1, aft => 2, Exp => 0);
end try;





Sent via Deja.com http://www.deja.com/
Before you buy.