diff options
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"); |