source: ada-examples/hello_world_ada/hello.adb @ 38b445a

ada-examples-4-10-branchada-examples-4-6-branchada-examples-4-7-branchada-examples-4-8-branchada-examples-4-9-branch
Last change on this file since 38b445a was 7efcefa, checked in by Joel Sherrill <joel.sherrill@…>, on 04/20/99 at 13:05:42

base GNAT/RTEMS examples

  • Property mode set to 100644
File size: 344 bytes
Line 
1--
2--  Hello World with Flair
3--
4
5with Text_IO; use Text_IO;
6
7procedure Hello is
8begin
9   Put_Line ("GNAT/RTEMS Hello World Test");
10   New_Line;
11   Put_Line ("Welcome to the World of Lady Ada");
12
13   New_Line;
14   Put_Line ("Initiating 2.5 second delay");
15   delay 2.5;
16   Put_Line ("Delay Complete");
17
18   Put_Line ("Test Complete");
19end Hello;
20
Note: See TracBrowser for help on using the repository browser.