Bug in Ada (SuSe 10.2) ?

Hi there,

could anyone try the test program below 
(which should output only positive numbers or error message).

I get the following output (running SuSe 10.2,
updated per 19 feb 2008):

                   1
                   2
                   6
                  24
                 120
                 720
                5040
               40320
              362880
             3628800
            39916800
           479001600
          1932053504
          1278945280
          2004310016
          2004189184
          -288522240
          -898433024
           109641728
         -2102132736'

The program should give an "integer out of range" error message ?

I compiled the program with the following command:
gnatmake -gnat05 test2


----------------------------------------------------
with Text_IO;
use  Text_IO;
procedure test2 is

  package Int_Io is new Text_IO.Integer_Io (Integer);
  use Int_Io;

  k : Integer := 1;
  n : Integer := 20;

begin

    for i in 1..n loop
        k := k * i;
        Put(k,20);New_Line;
    end loop;

end test2;