source:
ada-examples/hello_world_ada/hello.adb
@
ffb49d6
Last change on this file since ffb49d6 was ffb49d6, checked in by Joel Sherrill <joel.sherrill@…>, on 09/17/09 at 17:38:36 | |
---|---|
|
|
File size: 393 bytes |
Rev | Line | |
---|---|---|
[7efcefa] | 1 | -- |
2 | -- Hello World with Flair | |
3 | -- | |
[ffb49d6] | 4 | -- $Id$ |
5 | -- | |
[7efcefa] | 6 | |
7 | with Text_IO; use Text_IO; | |
8 | ||
9 | procedure Hello is | |
10 | begin | |
[e3df5e2] | 11 | Put_Line ("*** GNAT/RTEMS Hello World Test ***"); |
[7efcefa] | 12 | New_Line; |
13 | Put_Line ("Welcome to the World of Lady Ada"); | |
14 | ||
15 | New_Line; | |
16 | Put_Line ("Initiating 2.5 second delay"); | |
17 | delay 2.5; | |
18 | Put_Line ("Delay Complete"); | |
19 | ||
[e3df5e2] | 20 | Put_Line ("*** END OF GNAT/RTEMS Hello World Test ***"); |
[7efcefa] | 21 | end Hello; |
22 |
Note: See TracBrowser
for help on using the repository browser.