summaryrefslogtreecommitdiff
path: root/ada_from_c_task/ada_from_c.adb
diff options
context:
space:
mode:
authorJoel Sherrill <joel.sherrill@OARcorp.com>2009-09-17 18:13:31 +0000
committerJoel Sherrill <joel.sherrill@OARcorp.com>2009-09-17 18:13:31 +0000
commitd4c4abaf17421751d5eb91cb6fe82701f4df175b (patch)
treec00047e8f531442076e91aaa718fdd6bd5915e6e /ada_from_c_task/ada_from_c.adb
parentdabca92eee2a796c4156d34ae11c043fcde5703c (diff)
2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com>
* Makefile, ada_from_c.adb, app.c: Make follow standard RTEMS test output format. Add output screens where appropriate. * ada_from_c_task.scn: New file.
Diffstat (limited to 'ada_from_c_task/ada_from_c.adb')
-rw-r--r--ada_from_c_task/ada_from_c.adb5
1 files changed, 4 insertions, 1 deletions
diff --git a/ada_from_c_task/ada_from_c.adb b/ada_from_c_task/ada_from_c.adb
index 268968f..8b7b85f 100644
--- a/ada_from_c_task/ada_from_c.adb
+++ b/ada_from_c_task/ada_from_c.adb
@@ -1,6 +1,9 @@
--
-- Ada From C Example -- Ada "Application"
--
+-- $Id$
+--
+
with Text_IO; use Text_IO;
with Example;
@@ -11,7 +14,7 @@ procedure Ada_From_C is
task body Ada_From_C_Task is
begin
- Put_Line ("GNAT/RTEMS C Calling Ada Test");
+ Put_Line ("*** GNAT/RTEMS C Calling Ada Test ***");
loop
Put_Line ("Ada task loop iteration");