OSDN Git Service

* gcc.dg/nest.c: New.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / nest.c
1 /* PR 5967, PR 7114 */
2 /* { dg-do run } */
3 /* { dg-options "-O2 -pg" } */
4
5 long foo (long x)
6 {
7   long i, sum = 0;
8   long bar (long z) { return z * 2; }
9
10   for (i = 0; i < x; i++)
11     sum += bar (i);
12
13   return sum;
14 }
15
16 int main (void)
17 {
18   if (foo(10) != 90)
19     abort ();
20   return 0;
21 }