source:
ada-examples/hello_world_ada/hello.adb
@
8325959
Last change on this file since 8325959 was 7efcefa, checked in by Joel Sherrill <joel.sherrill@…>, on 04/20/99 at 13:05:42 | |
---|---|
|
|
File size: 344 bytes |
Line | |
---|---|
1 | -- |
2 | -- Hello World with Flair |
3 | -- |
4 | |
5 | with Text_IO; use Text_IO; |
6 | |
7 | procedure Hello is |
8 | begin |
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"); |
19 | end Hello; |
20 |
Note: See TracBrowser
for help on using the repository browser.