* gcc.dg/nest.c: New.

From-SVN: r55546

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gcc.dg/nest.c

+/* 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;
+}