1 files changed, 18 insertions, 0 deletions
diff --git a/ada_from_c_task/example.adb b/ada_from_c_task/example.adb
new file mode 100644
index 0000000..e73b18a
--- /dev/null
+++ b/ada_from_c_task/example.adb
@@ -0,0 +1,18 @@
+--
+--  The license and distribution terms for this file may be
+--  found in the file LICENSE in this distribution or at
+--  http://www.rtems.com/license/LICENSE.
+--
+--  $Id$
+--
+
+with Text_IO; use Text_IO;
+
+package body Example is
+  procedure ToBeCalled (
+    iterations : in Integer
+  ) is 
+  begin
+    Put_Line ( "Ada method called " & Integer'Image (iterations) & " times" );
+  end ToBeCalled;
+end Example;