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=0.3 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	REPLYTO_WITHOUT_TO_CC,REPTO_QUOTE_YAHOO autolearn=no
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,350aad0f4c973ca7
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-03-11 16:58:48 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!deine.net!teaser.fr!wanadoo.fr!not-for-mail
From: "Meresup" <fr_laugier@yahoo.com>
Newsgroups: comp.lang.ada
Subject: may i be more explicit?
Date: Tue, 12 Mar 2002 01:58:45 +0100
Organization: Wanadoo, l'internet avec France Telecom
Message-ID: <a6jjs7$1sg$1@wanadoo.fr>
References: <a6jial$6b8$1@wanadoo.fr>
Reply-To: "Meresup" <fr_laugier@yahoo.com>
NNTP-Posting-Host: atoulouse-104-1-5-16.abo.wanadoo.fr
X-Trace: wanadoo.fr 1015894727 1936 80.14.103.16 (12 Mar 2002 00:58:47 GMT)
X-Complaints-To: abuse@wanadoo.fr
NNTP-Posting-Date: 12 Mar 2002 00:58:47 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Xref: archiver1.google.com comp.lang.ada:21090
Date: 2002-03-12T00:58:47+00:00
List-Id: <comp.lang.ada>

I can try.
Here's what i'm trying to do :

procedure Test_Timeout is

-- Timeout
function Timeout return Boolean is
begin
    delay 10.0;
    return True;
end Timeout;

-- Simulation of waiting a response from a procedure
function Ar return Boolean is
begin
    for I in 1..10 loop
        Put (I);
        delay 0.2;
    end loop;
    return True;
end Ar;

begin
Put("Test de timeout");
-- What can i do to go out this test as soon as any of these conditions are
true?
if Ar or Timeout then
    Put (" Timeout atteint");
end if;
end Test_Timeout;