Thanks for the suggestions.

Since the language includes the ENTIER function I just assumed that it would 
have its inverse. Apparently not.

I don't want an ASSERT to indicate a problem is about to occur, I want to solve 
the problem.

To this effect I have written a short (0 byte !) in-line assembler function that 
does what I want - see the attached.

Doing nothing causes an overflow without any warning - not what I want here.

The expression "(n + 0.)" works as I want, but the expression "Float (n)" just 
looks more natural (and efficient!) to me.

Regards

Robert

On 14/10/2011 02:09 PM, Rene A. Krywult wrote:
> r:=n;
> r:=r*r;
> And if you fear overflow, you should ASSERT against it, I believe.
>
> Rene
> -------- Original-Nachricht --------
>> Datum: Fri, 14 Oct 2011 13:26:18 +0100
>> Von: Robert<robert.campbell_@TISCALI.CO.UK>
>> An: BLACKBOX@LISTS.OBERON.CH
>> Betreff: Re: [BLACKBOX] Type transfer
>> Yes, but ....
>>
>> What I want to do is
>>
>>     r  :=  n * n
>>
>> and if I don't convert before the assignment I risk overflow.
>>
>> Cheers
>>
>> Robert
>>
>>
>> On 14/10/2011 12:30 PM, Rene A. Krywult wrote:
>>> MODULE PrivConv;
>>> VAR r:REAL; n:INTEGER;
>>> BEGIN
>>> 	n:=5;
>>> 	r:=n;
>>> END PrivConv.
>>>
>>> -------- Original-Nachricht --------
>>>> Datum: Fri, 14 Oct 2011 12:23:29 +0100
>>>> Von: "Campbell, Robert (SELEX GALILEO,
>> UK)"<robert.d.campbell@SELEXGALILEO.COM>
>>>> An: BLACKBOX@LISTS.OBERON.CH
>>>> Betreff: [BLACKBOX] Type transfer
>>>> My mind has suddenly gone blank!
>>>>
>>>>
>>>> What is the easiest way of converting an INTEGER (say n) to a REAL?
>>>>
>>>> The expression "(n + 0.)" just seems a bit unnatural.
>>>>
>>>>
>>>> Cheers
>>>>
>>>> Robert
>>>> SELEX Galileo Ltd
>>>> Registered Office: Sigma House, Christopher Martin Road, Basildon,
>> Essex
>>>> SS14 3EL
>>>> A company registered in England&   Wales.  Company no. 02426132
>>>> ********************************************************************
>>>> This email and any attachments are confidential to the intended
>>>> recipient and may also be privileged. If you are not the intended
>>>> recipient please delete it from your system and notify the sender.
>>>> You should not copy it or use it for any purpose nor disclose or
>>>> distribute its contents to any other person.
>>>> ********************************************************************
>>>>
>>>>
>>>> ----
>>>> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
>>>> LISTSERV@LISTS.OBERON.CH
>>
>> ----
>> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
>> LISTSERV@LISTS.OBERON.CH

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV@LISTS.O008080703020