* testsuite/libgomp.fortran/vla7.f90: Add -w to options.
[official-gcc.git] / gcc / testsuite / gcc.dg / pr20100.c
blob988fbda6429db437a2eb03cc2a78a9e76ca3985d
1 /* { dg-do run } */
2 /* { dg-options "-O2" } */
4 int func_pure (void) __attribute__ ((pure));
5 void func_other (int);
6 int global_int;
7 void abort ();
8 void func_other(int a)
10 if (a != global_int)
11 abort ();
12 global_int++;
15 int func_pure(void)
17 return global_int;
20 int
21 func_loop (int arg)
23 // global_int ++;
24 while (arg--)
25 func_other (func_pure ());
28 int main(void)
30 func_loop(10);
31 return 0;