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.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,174ca8cf9b3c1596
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!tiscali!newsfeed1.ip.tiscali.net!proxad.net!cleanfeed2-a.proxad.net!nnrp10-1.free.fr!not-for-mail
Message-ID: <45b50fa1$0$8261$426a74cc@news.free.fr>
From: Yves Bailly <kafka.fr@laposte.net>
Subject: Re: Help: program won't ends (GNAT)
Newsgroups: comp.lang.ada
Date: Mon, 22 Jan 2007 20:25:01 +0100
References: <45b3f4a4$0$30117$426a74cc@news.free.fr>
 <45b4726b$0$31548$39db0f71@news.song.fi>
User-Agent: KNode/0.10.4
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
Organization: Guest of ProXad - France
NNTP-Posting-Date: 22 Jan 2007 20:25:22 MET
NNTP-Posting-Host: 81.56.171.53
X-Trace: 1169493922 news-2.free.fr 8261 81.56.171.53:38972
X-Complaints-To: abuse@proxad.net
Xref: g2news2.google.com comp.lang.ada:8403
Date: 2007-01-22T20:25:22+01:00
List-Id: <comp.lang.ada>

Niklas Holsti wrote:

> Yves Bailly wrote:
>> Hello all,
>> 
>> I'm a bit confused by the following behaviour. Please consider this
>> simple program (a much larger one reduced to its minimum):
>     [snip]
>> When I run the program, both strings are displayed, but the program
>> doesn't exit: it just keeps running, eating 75% of my CPU power
>     [snip]
>> Compiled by GNAT-2006 (the latest release) or by the GNAT provided with
>> GCC 4.1, both give the same behaviour.
> 
> I observe the same behaviour on gnat 3.15p, Debian Linux. Seems to be a
> GNAT bug of respectable age.
> 

Interestingly, if you move the initialization into the procedure's body:

[...]
   type Rec is
   record
      f: A_2;
   end record;
   var: Rec;
begin
   var.f := (others => (others => Null_Unbounded_String));
[...]

...then it works. Reading other posts, it definitely looks like a bug
in the compiler. Thanks to all for your answers.

Regards,

-- 
(o< | Yves Bailly  : http://kafka-fr.net   | -o)
//\ | Linux Dijon  : http://www.coagul.org | //\
\_/ |                                      | \_/`