diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-17 18:13:31 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-17 18:13:31 +0000 |
commit | d4c4abaf17421751d5eb91cb6fe82701f4df175b (patch) | |
tree | c00047e8f531442076e91aaa718fdd6bd5915e6e /ada_from_c_task/ada_from_c.adb | |
parent | dabca92eee2a796c4156d34ae11c043fcde5703c (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.adb | 5 |
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"); |