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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,4fe0da28a190b761
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!postnews.google.com!s9g2000prg.googlegroups.com!not-for-mail
From: christoph.grein@eurocopter.com
Newsgroups: comp.lang.ada
Subject: Re: Storage management
Date: Mon, 10 Nov 2008 06:28:24 -0800 (PST)
Organization: http://groups.google.com
Message-ID: <4aa105de-174d-4a86-bd3d-138b60c9a75f@s9g2000prg.googlegroups.com>
References: 
 <87fxmbog1u.fsf@mid.deneb.enyo.de><wccej1vw07f.fsf@shell01.TheWorld.com>
	<87abciurrl.fsf@mid.deneb.enyo.de> <gf04q8$nfm$1@jacob-sparre.dk>
	<13hpf6ht4tl2m$.1su6rgr67eb2o$.dlg@40tude.net>
 <49140215$0$23600$4f793bc4@news.tdc.fi>
	<1pqpgcv6v4qxq$.1wkkgkw2yncf.dlg@40tude.net>
 <49142285$0$23584$4f793bc4@news.tdc.fi>
	<ca4vs982oouc.1vzco5wh8lrj0.dlg@40tude.net>
NNTP-Posting-Host: 80.156.44.178
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1226327305 1375 127.0.0.1 (10 Nov 2008 14:28:25
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Mon, 10 Nov 2008 14:28:25 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: s9g2000prg.googlegroups.com; posting-host=80.156.44.178;
	posting-account=rmHyLAoAAADSQmMWJF0a_815Fdd96RDf
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1;
 .NET
	CLR 1.1.4322; .NET CLR 2.0.50727; InfoPath.1;
 .NET CLR 3.0.04506.30),gzip(gfe),gzip(gfe)
X-HTTP-Via: 1.1 webwasher (Webwasher 6.8.2.3963)
Xref: g2news1.google.com comp.lang.ada:2641
Date: 2008-11-10T06:28:24-08:00
List-Id: <comp.lang.ada>

On 7 Nov., 14:22, "Dmitry A. Kazakov" <mail...@dmitry-kazakov.de>
wrote:

> I don't know. But I discussed that with AdaCore people. Since the followi=
ng
> does not work with GNAT Pro 6.2 (Windows wavefront):
>
> with Ada.Text_IO; =A0use Ada.Text_IO;
> procedure Test_ATC is
> begin
> =A0 =A0Put_Line ("Type");
> =A0 =A0select
> =A0 =A0 =A0 delay 2.0;
> =A0 =A0 =A0 Put_Line ("Timed out");
> =A0 =A0then abort
> =A0 =A0 =A0 Put_Line ("You typed " & Get_Line);
> =A0 =A0end select;
> end Test_ATC;

How come? What did they say? The following piece of code works fine
(GNAT Pro 6.0.1 on Linux SuSE 9.1):

  Start: constant Time :=3D Clock;

begin

  select
    delay 5.0;
    Put_Line ("Time out");
  then abort
    Put_Line ("Read """ & Get_Line & '"');
  end select;

  Put_Line (Duration'Image (Clock - Start));