summaryrefslogtreecommitdiff
path: root/hello_via_task/hello.adb
diff options
context:
space:
mode:
Diffstat (limited to 'hello_via_task/hello.adb')
-rw-r--r--hello_via_task/hello.adb27
1 files changed, 27 insertions, 0 deletions
diff --git a/hello_via_task/hello.adb b/hello_via_task/hello.adb
new file mode 100644
index 0000000..3d22eaf
--- /dev/null
+++ b/hello_via_task/hello.adb
@@ -0,0 +1,27 @@
+--
+-- Hello World Using a Task
+--
+
+with Text_IO; use Text_IO;
+
+procedure Hello is
+
+ task Hello_Task;
+
+ task body Hello_Task 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_Task;
+
+begin
+ NULL;
+end Hello;