with Ada.Text_IO;
|
|
with Ada.Command_Line;
|
|
|
|
procedure Hello is
|
|
package IO renames Ada.Text_IO;
|
|
Name : String := Ada.Command_Line.Argument (1);
|
|
begin
|
|
pragma Foo;
|
|
IO.Put_Line("Hello, world!");
|
|
IO.New_Line;
|
|
end Hello;
|