AW: Static vs dynamic evaluation anomaly?

From: "Grein, Christoph (Fa. ESG)" <Christoph.Grein@eurocopter.com>
To: "Grein, Christoph (Fa. ESG)" <Christoph.Grein@eurocopter.com>,
	comp.lang.ada@ada-france.org
Subject: AW: Static vs dynamic evaluation anomaly?
Date: Wed, 07 Feb 2007 08:22:42 +0100
Date: 2007-02-07T08:25:02+01:00	[thread overview]
Message-ID: <mailman.79.1170832937.18371.comp.lang.ada@ada-france.org> (raw)
In-Reply-To: <AEBEAAA73D5180469E2B3F071A96AC220110A637@sma2901.cr.eurocopter.corp>

Silly me, I meant

with Ada.Text_IO;
use  Ada.Text_IO;
procedure test271 is
  type Six_Bits is mod 2**6;
  X: constant Six_Bits := 31;
  Z: constant Integer  := 31;
begin
  for J in 0..5 loop
    Put_Line (Integer 'Image         (J) &
              Six_Bits'Image  (X * 2**J) &
              Integer 'Image ((Z * 2**J) mod Six_Bits'Modulus));
  end loop;
end test271;
_______________________________________________
comp.lang.ada mailing list
comp.lang.ada@ada-france.org
http://www.ada-france.org/mailman/listinfo/comp.lang.ada