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

gcc/testsuite/treelang/ChangeLog

+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.

gcc/testsuite/treelang/compile/exit.tree

+// { 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;
+}

gcc/testsuite/treelang/compile/extref.tree

+// { dg-do compile }
+external_reference void abort ();
+
+static int foo (int a);
+
+foo
+{
+  return a;
+}

gcc/testsuite/treelang/compile/function-1.tree

+// { dg-do compile }
+static int foo ();
+static int bar (int a);
+
+foo
+{
+	return 1;
+}
+
+bar
+{
+	a = a + foo ();
+	return a;
+}

gcc/testsuite/treelang/compile/syntax-1.tree

+// { dg-do compile }
+external_reference void exit(int); // { dg-error "(parse|syntax) error" }
+
+static int foo (int a);
+
+foo
+{
+  return a;
+}