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