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,XPRIO autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,e93e343bdf618340,start
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!news.glorb.com!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "Magik" <dormar00@poczta.onet.pl>
Newsgroups: comp.lang.ada
Subject: Problem with tasks
Date: Sat, 4 Sep 2004 10:57:14 +0200
Organization: tp.internet - http://www.tpi.pl/
Message-ID: <chc076$i96$1@nemesis.news.tpi.pl>
NNTP-Posting-Host: nat.zarzad.rudzka.com.pl
X-Trace: nemesis.news.tpi.pl 1094288422 18726 212.160.212.12 (4 Sep 2004
 09:00:22 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Sat, 4 Sep 2004 09:00:22 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1437
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441
Xref: g2news1.google.com comp.lang.ada:3311
Date: 2004-09-04T10:57:14+02:00
List-Id: <comp.lang.ada>

Hello.

1. Proces_Alarmu.Start -> Yes OK!
2. Proces_Alarmu.Stop -> Yes OK!
But
3. Proces_Alarmu.Start - Why does not start again exercise?

task Proces_Alarmu is
      entry Start;
      entry Stop;
   end Proces_Alarmu;

task body Proces_Alarmu is
   begin
      accept Start;
            loop
             select
                accept Stop;
                exit;
         or
            delay 1.0;
            end select;
put("test");
      end loop;
   end Proces_Alarmu;

Programming in Windows Gnat 3.13