source: ada-examples/hello_world_ada/hello.adb @ 93bf75a

ada-examples-4-10-branch ada-examples-4-10-2
Last change on this file since 93bf75a was ffb49d6, checked in by Joel Sherrill <joel.sherrill@…>, on Sep 17, 2009 at 5:38:36 PM

2009-09-17 Joel Sherrill <joel.sherrill@…>

  • Makefile, hello.adb: Make follow standard RTEMS test output format.
  • Property mode set to 100644
File size: 393 bytes
Line 
1--
2--  Hello World with Flair
3--
4--  $Id$
5--
6
7with Text_IO; use Text_IO;
8
9procedure Hello is
10begin
11   Put_Line ("*** GNAT/RTEMS Hello World Test ***");
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
20   Put_Line ("*** END OF GNAT/RTEMS Hello World Test ***");
21end Hello;
22
Note: See TracBrowser for help on using the repository browser.