From 77469ec5a10968cf4e032d3d3c46945dc706bb8d Mon Sep 17 00:00:00 2001 From: "James A. Morrison" Date: Thu, 24 Feb 2005 16:14:19 +0000 Subject: [PATCH] re PR treelang/19897 ([treelang] External references don't work.) 2005-02-24 James A. Morrison 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 | 6 ++++++ gcc/testsuite/treelang/compile/exit.tree | 12 ++++++++++++ gcc/testsuite/treelang/compile/extref.tree | 9 +++++++++ gcc/testsuite/treelang/compile/function-1.tree | 14 ++++++++++++++ gcc/testsuite/treelang/compile/syntax-1.tree | 9 +++++++++ 5 files changed, 50 insertions(+) create mode 100644 gcc/testsuite/treelang/compile/exit.tree create mode 100644 gcc/testsuite/treelang/compile/extref.tree create mode 100644 gcc/testsuite/treelang/compile/function-1.tree create mode 100644 gcc/testsuite/treelang/compile/syntax-1.tree diff --git a/gcc/testsuite/treelang/ChangeLog b/gcc/testsuite/treelang/ChangeLog index c60765b837c9..13021aa1fa1a 100644 --- a/gcc/testsuite/treelang/ChangeLog +++ b/gcc/testsuite/treelang/ChangeLog @@ -1,3 +1,9 @@ +2005-02-24 James A. Morrison + + 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 * 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 000000000000..fd12e3568f64 --- /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 000000000000..085ab8f88fd2 --- /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 000000000000..6bb4e370a48c --- /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 000000000000..32efe744ca2d --- /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; +} -- 2.43.5