1 files changed, 24 insertions, 0 deletions
diff --git a/ada_from_c_task/ada_from_c.adb b/ada_from_c_task/ada_from_c.adb
new file mode 100644
index 0000000..268968f
--- /dev/null
+++ b/ada_from_c_task/ada_from_c.adb
@@ -0,0 +1,24 @@
+--
+--  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;