Ada multi-threaded programs do not terminate under RedHat Linux

[rstranders@yahoo.com (Ruben Stranders)]

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