Added new sample language treelang.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@53169 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 39 insertions, 0 deletions

diff --git a/gcc/testsuite/treelang/a01gcci01.tree b/gcc/testsuite/treelang/a01gcci01.tree
new file mode 100644
index 00000000000..e1e1ac1659f
--- /dev/null
+++ b/gcc/testsuite/treelang/a01gcci01.tree
@@ -0,0 +1,39 @@
+// -*- c -*- c mode in emacs
+
+external_definition int add(int arg1, int arg2);
+external_definition int subtract(int arg3, int arg4);
+external_definition int first_nonzero(int arg5, int arg6);
+external_definition int double_plus_one(int arg7);
+
+add 
+{
+  return arg1 + arg2;
+}
+
+        
+subtract 
+{
+  return arg3 - arg4;
+}
+
+double_plus_one
+{
+  automatic int aaa;
+  aaa=add(arg7, arg7);
+  aaa=add(aaa, aaa);
+  aaa=subtract(subtract(aaa, arg7), arg7) + 1;
+  return aaa;
+}
+
+first_nonzero
+{
+  if (arg5)
+    {
+      return arg5;
+    }
+  else
+    {
+    }
+  return arg6;
+}
+