Re: Static vs dynamic evaluation anomaly?

["Steve" <nospam_steved94@comcast.net>]

"Adam Beneschan" <adam@irvine.com> wrote in message 
news:1170792077.235994.10900@q2g2000cwa.googlegroups.com...
> On Feb 6, 9:29 am, Matt Jaffe <jaf...@cableone.net> wrote:
>
>> Any further help in explaining these anomalies would be much appreciated. 
>> (It's always possible we've stumbled across a compiler bug; but I am 
>> reluctant to come to that conclusion prematurely.)
>
> I'm not so reluctant.  It's a compiler bug.
>
> The following program produces incorrect results on GNAT, or at least
> on the version I'm using:
>
> with Ada.Text_IO;
> procedure test271 is
>    type Six_Bits is mod 2**6;
>    package Six_Bit_IO is new Ada.Text_IO.Modular_IO(Six_Bits);
>    X : Six_Bits := 31;
> begin
>    for J in 0..5 loop
>        Ada.Text_IO.Put ("When J=" & Integer'image(J));
>        Ada.Text_IO.Put (", X*2**J =");
>        Six_Bit_IO.Put(X*2**J);
>        Ada.Text_IO.New_Line;
>    end loop;
> end test271;
>

One more data point... ObjectAda 7.2.2 gives the result:

When J= 0, X*2**J = 31
When J= 1, X*2**J = 62
When J= 2, X*2**J = 60
When J= 3, X*2**J = 56
When J= 4, X*2**J = 48
When J= 5, X*2**J = 32

Which I believe is correct,
Regards,

Steve
(The Duck)

>                      -- Adam
>