comp.lang.ada
 help / color / mirror / Atom feed
From: "Patrice Freydiere" <frett27@free.fr>
Subject: Re: Ada multi-threaded programs do not terminate under RedHat Linux
Date: Sat, 08 Nov 2003 22:36:41 +0100
Date: 2003-11-08T23:30:44+01:00	[thread overview]
Message-ID: <pan.2003.11.08.21.36.30.348022@free.fr> (raw)
In-Reply-To: 43f0a81.0311071228.6620c6c2@posting.google.com

it works fine on my Linux 9.0 mandrake box.
I use a Gnat 3.15, given on the gnat web site.

Patrice

ps: be careful, gnat has it's own gcc version that can interfere with
local gcc version if it's first in path.

On Fri, 07 Nov 2003 12:28:27 +0000, Ruben Stranders wrote:

> I'm a Ada newbie and I have to make a very simple program to
> demonstrate the use of multithreading in Ada. For that purpose, I
> created the following program.
> 
> ============================
> procedure test is
>         task type counter;
> 
>         task body counter is
>         i : integer :=0;
>         begin
>                 put_line("Start");
>                 while i < 10000 loop
>                         i := i + 1;
>                 end loop;
>                 put_line("Finish");
>         end;
> 
>         task1 : counter;
> 
> begin
>         put_line("Test");
> end;
> ============================
> 
> I've compiled it under RedHat Linux 9.0 with "gnatmake test.adb".
> Unfortunately, the resulting program doesn't terminate. Instead of the
> expected output:
> 
> Starting
> Finished
> Test
> 
> it only prints the first two lines. The body of the procedure "test"
> is never called. I've tried this with several other programs and on
> different machines (all with RedHat 9.0). Can anyone give me a
> pointer?
> 
> Regards,
> 
> Ruben




  parent reply	other threads:[~2003-11-08 21:36 UTC|newest]

Thread overview: 14+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-11-07 20:28 Ada multi-threaded programs do not terminate under RedHat Linux Ruben Stranders
2003-11-07 21:45 ` Robert Spooner
2003-11-07 21:53 ` Jeff C,
2003-11-07 22:55   ` news.planet.nl
2003-11-08  2:08 ` Jeffrey Carter
2003-11-10 17:47   ` Warren W. Gay VE3WWG
     [not found] ` <h8fu71-s53.ln1@beastie.ix.netcom.com>
2003-11-08  9:49   ` Ruben Stranders
     [not found]     ` <fhnv71-s24.ln1@beastie.ix.netcom.com>
2003-11-08 23:09       ` Ruben Stranders
2003-11-09  5:31         ` Adrian Hoe
2003-11-09 10:39           ` Ruben Stranders
2003-11-11  2:32             ` Adrian Hoe
2003-11-11  2:34               ` Adrian Hoe
2003-11-08 21:36 ` Patrice Freydiere [this message]
2003-11-10  9:29 ` Gerald Kasner
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox