--
--  Ada From C Example -- Ada "Application"
--

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;