gcc/testsuite/gcc.dg/nest.c

   1 /* PR 5967, PR 7114 */
   2 /* { dg-do run } */
   3 /* { dg-require-profiling "" } */
   4 /* { dg-options "-O2 -pg" } */
   5 /* { dg-options "-O2 -pg -static" { target hppa*-*-hpux* } } */
   6 /* { dg-error "profiler" "No profiler support" { target xstormy16-*-* } 0 } */
   7 /* Support for -pg on irix relies on gcrt1.o which doesn't exist yet.
   8    See: http://gcc.gnu.org/ml/gcc/2002-10/msg00169.html */
   9 /* { dg-error "gcrt1.o" "Profiler support missing" { target mips*-*-irix* } 0 } */
  10 /* { dg-error "-pg not supported" "Profiler support missing" { target *-*-sco3.2v5* } 0 } */
  11
  12 long foo (long x)
  13 {
  14   long i, sum = 0;
  15   long bar (long z) { return z * 2; }
  16
  17   for (i = 0; i < x; i++)
  18     sum += bar (i);
  19
  20   return sum;
  21 }
  22
  23 int main (void)
  24 {
  25   if (foo(10) != 90)
  26     abort ();
  27   return 0;
  28 }