2005-02-24 James A. Morrison <phython@gcc.gnu.org>

        PR other/19896
        * execute/execute.exp: New file.
        * execute/funccall.tree, execute/funccall-2.tree, execute/initial.tree,
        execute/main.tree, execute/static.tree: New tests.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95504 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 32 insertions, 0 deletions

diff --git a/gcc/testsuite/treelang/execute/static.tree b/gcc/testsuite/treelang/execute/static.tree
new file mode 100644
index 00000000000..370f244604f
--- /dev/null
+++ b/gcc/testsuite/treelang/execute/static.tree
@@ -0,0 +1,32 @@
+// { dg-do run }
+external_reference void abort ();
+external_reference void exit (int code);
+external_definition int main (int argc, int argv);
+
+static int foo ();
+
+foo
+{
+	static int bar = +1;
+
+	bar = bar + +1;
+	return bar;
+}
+
+main
+{
+  automatic int aaa = +3;
+
+  aaa = foo ();
+  aaa = foo ();
+  
+  if (aaa == 3)
+    { 
+      exit (0);
+    }
+  else
+    {
+      abort ();
+    }
+  return 0;
+}