File: hello.adb

package info (click to toggle)
flycheck 36.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,600 kB
  • sloc: lisp: 16,210; python: 718; makefile: 219; cpp: 24; ruby: 23; perl: 21; ada: 17; f90: 16; haskell: 15; javascript: 15; sh: 14; erlang: 14; xml: 14; ansic: 12; php: 9; tcl: 8; fortran: 3; vhdl: 2; awk: 1; sql: 1
file content (11 lines) | stat: -rw-r--r-- 229 bytes parent folder | download | duplicates (6) 
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;