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
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5e7b9eb6024e0c2e
X-Google-Attributes: gid103376,public
From: dewar@merv.cs.nyu.edu (Robert Dewar)
Subject: Re: Comparison with 0 distorts Long_Long_Integer
Date: 1998/01/14
Message-ID: <dewar.884806754@merv>#1/1
X-Deja-AN: 315939588
References: <01bd20f8$c1877460$e7207cc1@---->
X-Complaints-To: usenet@news.nyu.edu
X-Trace: news.nyu.edu 884806898 28000 (None) 128.122.140.58
Organization: New York University
Newsgroups: comp.lang.ada
Date: 1998-01-14T00:00:00+00:00
List-Id: <comp.lang.ada>


D Anisimikov says

<<I'm use GNAT-3-10 for Win32 and found the BUG :
--------------------------------
with Text_Io,Machine_Code;
procedure Rli is
   use Text_Io;

   subtype IComp is Long_Long_Integer;
   package Comp_Io is new Integer_IO(IComp); use Comp_Io;

   C : constant Icomp := 16#1234_0000_0000#;
   Cb : Icomp;
begin
   Cb := C;
   if Cb=0 then
-- Comparison with 0 distorts Long_Long_Integer
      null;
   end if;
   if C/=Cb then
-- it's wrong
      Put(" C ="); Put(C,0,16); New_Line;
      Put(" Cb="); Put(Cb,0,16); New_Line;
   end if;
end Rli;
>>

Bug reports for GNAT should go to report@gnat.com, but do not bother
to submit this particular one since it works fine with the current
version of GNAT.