Obviously the example is wrong and it is completely absurd. The intent was
to show how to avoid Constraint_Error
when getting the arguments by using an Unbounded_String and the code example
doesn't show it.

Sorry and please forgive me.

Antonio Dur�n Dom�nguez <andudo@teleline.es> escribi� en el mensaje de
noticias DEqY4.9613$K4.61152@telenews.teleline.es...
> Another alternative:
>
> with Ada.Command_Line;
> with Ada.Strings.Unbounded;
> with Ada.Text_IO;
>
> use Ada.Command_Line;
> use Ada.Strings.Unbounded;
> use Ada.Text_IO;
>
> procedure Print_Args
> is
> begin
>     for I in 1 .. Argument_Count loop
>         Put_Line(
>             "Argument " & Integer'Image(I) & ": " &
> To_String(To_Unbounded_String(Argument(I))));
>     end loop;
> end Print_Args;
>
> with
> Gautier <gautier.demontmollin@maths.unine.ch> escribi� en el mensaje de
> noticias 39322C67.C6D9489F@maths.unine.ch...
> > Pedro Diaz Jimenez:
> >
> > a is a fixed-size string (of length 100)!
> > Instead of
> >
> >         a := Argument( 2 );
> >         put_Line( a );
> >
> > Try e.g.
> >         declare a2: String:= Argument( 2 );
> >         begin
> >           put_Line( a2 );
> >         end;
> >
> > HTH
> > ______________________________________________________
> > Gautier  --  http://members.xoom.com/gdemont/gsoft.htm
>
>