diff options
Diffstat (limited to 'hello_via_task/hello.adb')
-rw-r--r-- | hello_via_task/hello.adb | 27 |
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; |