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 c60765b837c9bc9103fe6b688270cd55d2f458c4..13021aa1fa1aa7729094eb31f698f20d070a4cda 100644 (file)
--- 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 (file)
index 0000000..fd12e35
--- /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 (file)
index 0000000..085ab8f
--- /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 (file)
index 0000000..6bb4e37
--- /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 (file)
index 0000000..32efe74
--- /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;
+}