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.1 required=5.0 tests=BAYES_20,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!caip!nike!ucbcad!ucbvax!UKCC.BITNET!UKC340
From: UKC340@UKCC.BITNET
Newsgroups: net.lang.ada
Subject: BITNET mail follows
Message-ID: <8609240636.AA15334@ucbvax.Berkeley.EDU>
Date: Mon, 22-Sep-86 17:33:00 EDT
Article-I.D.: ucbvax.8609240636.AA15334
Posted: Mon Sep 22 17:33:00 1986
Date-Received: Wed, 24-Sep-86 05:26:41 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
List-Id: <comp.lang.ada>

HELO UKCC.BITNET
VERB ON
TICK 0001
MAIL FROM:<UKC340@UKCC.BITNET>
RCPT TO:<ARPAINFO-ADA@ARPAUSC-ECLB.ARPA>
DATA
Date:      22 Sep 86 16:30 EST
From:      UKC340@UKCC.BITNET
To:        ARPAINFO-ADA@ARPAUSC_ECLB.ARPA
Subject:   Task question

I have a question about the following ADA program:

with text_io; use text_io;
procedure tasks is

task horizontal;

task vertical;

task body vertical is
begin
    loop
        put_line("vertical");
    end loop;
end vertical;

task body horizontal is
begin
    loop
        put_line("horizontal");
    end loop;
end horizontal;

begin
    null;
end tasks;

according to the ADA reference it states that a task is to run on its
own logical cpu which to me means that the output from the above program
would be something like a few lines of "horizontal" followed by a few
lines of "vertical" followed by a few lines of "horizontal", etc.
instead all i get is "horizontal" printed over and over again.  Am
i misinterpreting what the reference is saying?  does anyone
actually get the output to alternate between vertical and horizontal?