From: Alan Modra <amodra@bigpond.net.au>
Date: Thu, 18 Jul 2002 03:41:04 +0000 (+0000)
Subject: * gcc.dg/nest.c: New.
X-Git-Tag: releases/gcc-3.3.0~3777
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=85272855b5a72f7faafa3b9fb3578621175d799d;p=thirdparty%2Fgcc.git

* gcc.dg/nest.c: New.

From-SVN: r55546
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 45554509034d..89209b1a653f 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-18  Alan Modra  <amodra@bigpond.net.au>
+
+	* gcc.dg/nest.c: New.
+
 2002-07-17  Eric Botcazou  <ebotcazou@multimania.com>
 
 	* gcc.c-torture/execute/loop-2e.x: Let the testcase
diff --git a/gcc/testsuite/gcc.dg/nest.c b/gcc/testsuite/gcc.dg/nest.c
new file mode 100644
index 000000000000..60ced133df74
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/nest.c
@@ -0,0 +1,21 @@
+/* PR 5967, PR 7114 */
+/* { dg-do run } */
+/* { dg-options "-O2 -pg" } */
+
+long foo (long x)
+{
+  long i, sum = 0;
+  long bar (long z) { return z * 2; }
+
+  for (i = 0; i < x; i++)
+    sum += bar (i);
+
+  return sum;
+}
+
+int main (void)
+{
+  if (foo(10) != 90)
+    abort ();
+  return 0;
+}