File: hello.adb

package info (click to toggle)
flycheck 30-3
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 4,172 kB
  • ctags: 1,544
  • sloc: lisp: 11,139; python: 733; makefile: 243; ruby: 23; cpp: 17; ada: 17; f90: 16; xml: 14; ansic: 12; haskell: 12; sh: 10; erlang: 10; php: 9; perl: 7; fortran: 3; sql: 1
file content (11 lines) | stat: -rw-r--r-- 229 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
 
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;