From: James <james@recherche.enac.Fr>
Subject: GNAT 4.0 strange behaviour
Date: Mon, 12 Sep 2005 02:02:03 +0200
Date: 2005-09-12T02:02:03+02:00 [thread overview]
Message-ID: <4324c57b$0$17248$8fcfb975@news.wanadoo.fr> (raw)
This is a very small program compiled under linux debian with gnat 4
based on gcc 4.0
The output of the program is
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
which is of course not right...
If line labelled 1 is removed and replaced by line labelled 2, the
output is correct.
The output is also correct if part 1 is replaced by part 2.
Any advice or place where I could send a bug report?
with Text_Io;
use Text_Io;
with Interfaces;
use Interfaces;
procedure Toto is
type Intboard is new Unsigned_64;
for Intboard'Size use 64;
type Bit is new Integer range 0..1;
for Bit'Size use 1;
type Bitboard is array (0..63) of Bit;
pragma Pack(Bitboard);
for Bitboard'Size use 64;
A_B : Bitboard;
A_I : Intboard;
for A_I'Address use A_B'Address; --label1
-- for A_B'Address use A_I'Address; --label2
begin
--part 1
for I in 0 .. 7 loop
for J in 0 .. 7 loop
A_B(I*8+J) := 1;
Put(Bit'Image(A_B(I*8+J)));
end loop;
end loop;
--part 2
-- for I in 0 .. 63 loop
-- A_B(I) := 1;
-- Put(Bit'Image(A_B(I)));
-- end loop;
end Toto;
next reply other threads:[~2005-09-12 0:02 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-09-12 0:02 James [this message]
2005-09-12 0:36 ` GNAT 4.0 strange behaviour jimmaureenrogers
2005-09-12 5:11 ` Simon Wright
2005-09-12 16:11 ` James
2005-09-12 16:16 ` James
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox