path: root/ada_from_c_task/ada_from_c.adb

--
--  Ada From C Example -- Ada "Application"
--
--  $Id$
--


with Text_IO; use Text_IO;
with Example;

procedure Ada_From_C is

   task Ada_From_C_Task;

   task body Ada_From_C_Task is
   begin
     Put_Line ("*** GNAT/RTEMS C Calling Ada Test ***");

     loop
       Put_Line ("Ada task loop iteration");
       delay 1.0;
     end loop;
   end Ada_From_C_Task;

begin
   NULL;
end Ada_From_C;