diff options
| author | James A. Morrison <phython@gcc.gnu.org> | 2005-02-24 16:14:19 +0000 |
|---|---|---|
| committer | James A. Morrison <phython@gcc.gnu.org> | 2005-02-24 16:14:19 +0000 |
| commit | 77469ec5a10968cf4e032d3d3c46945dc706bb8d (patch) | |
| tree | d41483ade5eeb2ae709fdae88e3165831f2fba5a | |
| parent | a10d44d956b593f5a84ce50d307977df3ea78add (diff) | |
| download | gcc-77469ec5a10968cf4e032d3d3c46945dc706bb8d.zip gcc-77469ec5a10968cf4e032d3d3c46945dc706bb8d.tar.gz gcc-77469ec5a10968cf4e032d3d3c46945dc706bb8d.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/treelang/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/treelang/compile/exit.tree | 12 | ||||
| -rw-r--r-- | gcc/testsuite/treelang/compile/extref.tree | 9 | ||||
| -rw-r--r-- | gcc/testsuite/treelang/compile/function-1.tree | 14 | ||||
| -rw-r--r-- | gcc/testsuite/treelang/compile/syntax-1.tree | 9 |
5 files changed, 50 insertions, 0 deletions
diff --git a/gcc/testsuite/treelang/ChangeLog b/gcc/testsuite/treelang/ChangeLog index c60765b..13021aa 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 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 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 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 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; +} |