source: ada-examples/hello_via_task/hello.adb @ 14f44a3

ada-examples-4-10-branchada-examples-4-9-branch
Last change on this file since 14f44a3 was 14f44a3, checked in by Joel Sherrill <joel.sherrill@…>, on 10/17/07 at 20:55:06

2007-10-17 Joel Sherrill <joel.sherrill@…>

  • Makefile, Makefile.shared, rtems_init.c, irq_test/interrupt_pkg.adb, irq_test/interrupt_pkg.ads, irq_test/irqforce.c, irq_test/irqtest.adb, rootfs/etc/hosts: Adding new tests as improvements are made to the RTEMS port of the GNAT run-time.
  • empty/Makefile, empty/README, empty/empty.adb, hello_via_task/.cvsignore, hello_via_task/Makefile, hello_via_task/hello.adb, irq_test/.cvsignore, irq_test/Makefile, irq_test/README, irq_test_c/.cvsignore, irq_test_c/Makefile, irq_test_c/README, irq_test_c/init.c, irq_test_c/irqforce.c: New files.
  • Property mode set to 100644
File size: 448 bytes
Line 
1--
2--  Hello World Using a Task
3--
4
5with Text_IO; use Text_IO;
6
7procedure Hello is
8
9   task Hello_Task;
10
11   task body Hello_Task is
12   begin
13     Put_Line ("GNAT/RTEMS Hello World Test");
14     New_Line;
15     Put_Line ("Welcome to the World of Lady Ada");
16
17     New_Line;
18     Put_Line ("Initiating 2.5 second delay");
19     delay 2.5;
20     Put_Line ("Delay Complete");
21
22     Put_Line ("Test Complete");
23   end Hello_Task;
24
25begin
26   NULL;
27end Hello;
Note: See TracBrowser for help on using the repository browser.