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=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:ac8:45d2:: with SMTP id
 e18mr62655758qto.258.1564072336753;
        Thu, 25 Jul 2019 09:32:16 -0700 (PDT)
X-Received: by 2002:a05:6830:18a:: with SMTP id
 q10mr62089149ota.114.1564072336416;
 Thu, 25 Jul 2019 09:32:16 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!b26no1669911qtq.0!news-out.google.com!a5ni1843qtd.0!nntp.google.com!b26no1669906qtq.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 25 Jul 2019 09:32:15 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=2a01:5c0:e083:8691:5db5:7fd6:c2d8:84a4;
 posting-account=3Fg1FgoAAACfsmWScNfMD1tGFhR4DU0o
NNTP-Posting-Host: 2a01:5c0:e083:8691:5db5:7fd6:c2d8:84a4
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <e0ed983d-bb8d-4568-8f0b-c6771431e271@googlegroups.com>
Subject: Task_Barriers
From: Gilbert Gosseyn <hnptz@yahoo.de>
Injection-Date: Thu, 25 Jul 2019 16:32:16 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader01.eternal-september.org comp.lang.ada:56940
Date: 2019-07-25T09:32:15-07:00
List-Id: <comp.lang.ada>

with Ada.Text_IO , Ada.Synchronous_Barriers ;
use  Ada.Text_IO , Ada.Synchronous_Barriers ;

procedure Task_Barriers is
   NT: constant := 2;
   SB: Ada.Synchronous_Barriers.Synchronous_Barrier(NT) ;
   Notified : Boolean:= False ;
   task T1 ;
   task T2 ;

   X: Integer :=0;
   Y: Integer :=1;

   task body T1 is
   begin
      loop
         delay 1.0 ;
         Wait_For_Release (SB,Notified) ;
         X:=X+1;
      end loop ;
   end T1 ;

   task body T2 is
   begin
      loop
         delay 1.0 ;
         Wait_For_Release (SB, Notified) ;
         Y:=Y+1;
      end loop ;
   end T2 ;
begin
   null ;
end Task_Barriers ;

This program runs forever, although it should stop when reaching an internal count number?