From: James A. Morrison <phython@gcc.gnu.org>
Date: Thu, 24 Feb 2005 16:14:19 +0000 (+0000)
Subject: re PR treelang/19897 ([treelang] External references don't work.)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=77469ec5a10968cf4e032d3d3c46945dc706bb8d;p=gcc.git

re PR treelang/19897 ([treelang] External references don't work.)

2005-02-24  James A. Morrison  <phython@gcc.gnu.org>

        PR other/19897
        * compile/exit.tree, compile/extref.tree, compile/function-1.tree,
        compile/syntax-1.tree: New tests.

From-SVN: r95502
---

diff --git a/gcc/testsuite/treelang/ChangeLog b/gcc/testsuite/treelang/ChangeLog
index c60765b837c..13021aa1fa1 100644
--- a/gcc/testsuite/treelang/ChangeLog
+++ b/gcc/testsuite/treelang/ChangeLog
@@ -1,3 +1,9 @@
+2005-02-24  James A. Morrison  <phython@gcc.gnu.org>
+
+	PR other/19897
+	* compile/exit.tree, compile/extref.tree, compile/function-1.tree,
+	compile/syntax-1.tree: New tests.
+
 2004-10-02  James A. Morrison  <phython@gcc.gnu.org>
 
 	* compile/autofunc.tree: New File.
diff --git a/gcc/testsuite/treelang/compile/exit.tree b/gcc/testsuite/treelang/compile/exit.tree
new file mode 100644
index 00000000000..fd12e3568f6
--- /dev/null
+++ b/gcc/testsuite/treelang/compile/exit.tree
@@ -0,0 +1,12 @@
+// { dg-do compile { xfail *-*-* } }
+external_reference void exit (int code);
+
+static int foo ();
+
+foo
+{
+	automatic int bar = +1;
+	bar = bar + +1;
+	exit (0);  // Calling external references is currently broken.
+	return bar;
+}
diff --git a/gcc/testsuite/treelang/compile/extref.tree b/gcc/testsuite/treelang/compile/extref.tree
new file mode 100644
index 00000000000..085ab8f88fd
--- /dev/null
+++ b/gcc/testsuite/treelang/compile/extref.tree
@@ -0,0 +1,9 @@
+// { dg-do compile }
+external_reference void abort ();
+
+static int foo (int a);
+
+foo
+{
+  return a;
+}
diff --git a/gcc/testsuite/treelang/compile/function-1.tree b/gcc/testsuite/treelang/compile/function-1.tree
new file mode 100644
index 00000000000..6bb4e370a48
--- /dev/null
+++ b/gcc/testsuite/treelang/compile/function-1.tree
@@ -0,0 +1,14 @@
+// { dg-do compile }
+static int foo ();
+static int bar (int a);
+
+foo
+{
+	return 1;
+}
+
+bar
+{
+	a = a + foo ();
+	return a;
+}
diff --git a/gcc/testsuite/treelang/compile/syntax-1.tree b/gcc/testsuite/treelang/compile/syntax-1.tree
new file mode 100644
index 00000000000..32efe744ca2
--- /dev/null
+++ b/gcc/testsuite/treelang/compile/syntax-1.tree
@@ -0,0 +1,9 @@
+// { dg-do compile }
+external_reference void exit(int); // { dg-error "(parse|syntax) error" }
+
+static int foo (int a);
+
+foo
+{
+  return a;
+}