summaryrefslogtreecommitdiff
path: root/hello_world_ada/hello.adb
diff options
context:
space:
mode:
Diffstat (limited to 'hello_world_ada/hello.adb')
-rw-r--r--hello_world_ada/hello.adb20
1 files changed, 20 insertions, 0 deletions
diff --git a/hello_world_ada/hello.adb b/hello_world_ada/hello.adb
new file mode 100644
index 0000000..63f8ac0
--- /dev/null
+++ b/hello_world_ada/hello.adb
@@ -0,0 +1,20 @@
+--
+-- Hello World with Flair
+--
+
+with Text_IO; use Text_IO;
+
+procedure Hello is
+begin
+ Put_Line ("GNAT/RTEMS Hello World Test");
+ New_Line;
+ Put_Line ("Welcome to the World of Lady Ada");
+
+ New_Line;
+ Put_Line ("Initiating 2.5 second delay");
+ delay 2.5;
+ Put_Line ("Delay Complete");
+
+ Put_Line ("Test Complete");
+end Hello;
+