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.6 required=5.0 tests=BAYES_40,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,72ec0a36bd1bb9d8,start
X-Google-Attributes: gid103376,public
From: luo@cybercom.net ()
Subject: sign bit for digits type
Date: 1997/02/11
Message-ID: <5dq6am$5m0$1@lator.cybercom.net>#1/1
X-Deja-AN: 218162019
organization: Cyber Access Internet Communications, Inc.
newsgroups: comp.lang.ada
Date: 1997-02-11T00:00:00+00:00
List-Id: <comp.lang.ada>


Subject: sign bit for digits type
Newsgroups: comp.lang.ada
Organization: Cyber Access Internet Communications, Inc.
Summary: 
Keywords: 

I have a float type as follows:

package A is
   type float_32 is digits 6;
end A;

This type is unsigned as defined by the language or the compiler?
I declare an object and a '-' operator as follows to handle negative
numbers:

with A;
package B is
  function "-" (x, y : A.float_32) renames A."-" return A.float_32;
  Real :A.float_32 := -5.0;
end B;

What happens in procedure C when I do the following:
with A;
with B;
procedure C is
  value : A.float_32 := B.Real;
begin
  null;
end C;

What is value equal to, 5.0 or -5.0?
Is this compiler dependent?

TIA.