aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/treelang
diff options
context:
space:
mode:
authorJames A. Morrison <ja2morri@uwaterloo.ca>2004-01-20 01:57:58 +0000
committerJames A. Morrison <phython@gcc.gnu.org>2004-01-20 01:57:58 +0000
commit9dfcd6092ef71da399221e59d535c5b893390243 (patch)
treec69e5ea4c388fcc04fe68460bf777966befa68ab /gcc/testsuite/treelang
parente165d61b82fb42183b8ffb819b22fedfcd30d3c3 (diff)
downloadgcc-9dfcd6092ef71da399221e59d535c5b893390243.zip
gcc-9dfcd6092ef71da399221e59d535c5b893390243.tar.gz
gcc-9dfcd6092ef71da399221e59d535c5b893390243.tar.bz2
treelang.exp: Fill out this file.
2004-01-18 James A. Morrison <ja2morri@uwaterloo.ca> * lib/treelang.exp: Fill out this file. * lib/treelang-dg.exp: New File. treelang: 2004-01-18 James A. Morrison <ja2morri@uwaterloo.ca> * compile/compile.exp: New File. * compile/tabs.tree: Test whether the front end compiles code with tabs in it. From-SVN: r76194
Diffstat (limited to 'gcc/testsuite/treelang')
-rw-r--r--gcc/testsuite/treelang/ChangeLog6
-rw-r--r--gcc/testsuite/treelang/compile/compile.exp31
-rw-r--r--gcc/testsuite/treelang/compile/tabs.tree11
3 files changed, 48 insertions, 0 deletions
diff --git a/gcc/testsuite/treelang/ChangeLog b/gcc/testsuite/treelang/ChangeLog
index ca767d0..5a594a1 100644
--- a/gcc/testsuite/treelang/ChangeLog
+++ b/gcc/testsuite/treelang/ChangeLog
@@ -1,3 +1,9 @@
+2004-01-18 James A. Morrison <ja2morri@uwaterloo.ca>
+
+ * compile/compile.exp: New File.
+ * compile/tabs.tree: Test whether the front end
+ compiles code with tabs in it.
+
2003-02-25 Tim Josling <tej@melbpc.org.au>
* treetests.exp (run3): set options to force aggressive GC, to
diff --git a/gcc/testsuite/treelang/compile/compile.exp b/gcc/testsuite/treelang/compile/compile.exp
new file mode 100644
index 0000000..836c325
--- /dev/null
+++ b/gcc/testsuite/treelang/compile/compile.exp
@@ -0,0 +1,31 @@
+# Tests for treelang; run from gcc/treelang/Make-lang.in => gcc/Makefile
+
+# Copyright (C) 2004 by The Free Software Foundation
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by the
+# Free Software Foundation; either version 2, or (at your option) any
+# later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, 59 Temple Place - Suite 330,
+# Boston, MA 02111-1307, USA.
+#
+# In other words, you are welcome to use, share and improve this program.
+# You are forbidden to forbid anyone else to use, share and improve
+# what you give them. Help stamp out software-hoarding!
+
+# Treelang tests that only need to compile.
+
+# Load support procs.
+load_lib treelang-dg.exp
+
+dg-init
+dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.tree]] "" ""
+dg-finish
diff --git a/gcc/testsuite/treelang/compile/tabs.tree b/gcc/testsuite/treelang/compile/tabs.tree
new file mode 100644
index 0000000..6294c15
--- /dev/null
+++ b/gcc/testsuite/treelang/compile/tabs.tree
@@ -0,0 +1,11 @@
+// { dg-do compile }
+external_definition int main(int argc);
+
+main {
+ automatic int v1;
+ automatic int v2;
+ v1 = argc;
+ v2 = 3;
+
+ return v2;
+}