Re: Simple loop with a strange output

[Luca Cappelletti <luca.cappelletti@gmail.com>]

Il giorno giovedì 23 maggio 2013 15:53:19 UTC+2, Luca Cappelletti ha scritto:
> Hello,
> 
> 
> 
> I'm using GNAT 4.6 via Debian 7
> 
> 
> 
> I've just compiled this simple code coming from a tutorial where I've just a little bit changed to fit my test:
> 
> 
> 
> 
> 
> with Ada.Text_IO, Ada.Integer_Text_IO;
> 
> use Ada.Text_IO, Ada.Integer_Text_IO;
> 
> procedure Hello is
> 
> 
> 
>     procedure Raddoppia(Elemento: in out Integer) is
> 
>     begin
> 
>     
> 
>         Elemento := Elemento * 2;
> 
>     
> 
>     end Raddoppia;
> 
> 
> 
> X : Integer;
> 
> 
> 
> begin
> 
> 
> 
>     Put_Line("start counting");
> 
>     New_Line;
> 
> 
> 
>     X := 1; 
> 
>     while X < 1009999999 loop
> 
>         Put(X);
> 
>         New_Line;
> 
>         Raddoppia(X);
> 
>     end loop;
> 
> 
> 
> end Hello;
> 
> 
> 
> that produce the expected:
> 
> 
> 
> $./hello
> 
> Ciao a tutti sto usando Put_Line direttamente con la clausola use
> 

sorry there was a paste error from 2 text files the right output was:

$ ./hello
Start counting

          1
          2
          4
          8
         16
         32
         64
        128
        256
        512
       1024
       2048
       4096
       8192
      16384
      32768
      65536
     131072
     262144
     524288
    1048576
    2097152
    4194304
    8388608
   16777216
   33554432
   67108864
  134217728
  268435456
  536870912

thanks

Luca