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=1.3 required=5.0 tests=BAYES_00,INVALID_MSGID,
	MSGID_RANDY autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7956d7dcc9685cb5
X-Google-Attributes: gid103376,public
From: skamn@my-deja.com
Subject: Re: Help ... CONSTRAINT_ERROR
Date: 1999/12/06
Message-ID: <82fbse$jqr$1@nnrp1.deja.com>#1/1
X-Deja-AN: 556945815
References: <81vfu6$sem$1@tobruk.sydney.gecm.com>
X-Http-Proxy: 1.1 x30.deja.com:80 (Squid/1.1.22) for client 137.45.108.97
Organization: Deja.com - Before you buy.
X-Article-Creation-Date: Mon Dec 06 03:51:43 1999 GMT
X-MyDeja-Info: XMYDJUIDskamn
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.0 (compatible; MSIE 4.01; Windows NT)
Date: 1999-12-06T00:00:00+00:00
List-Id: <comp.lang.ada>

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.