OSDN Git Service

testsuite/
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / 930518-1.c
1 int bar = 0;
2
3 f (p)
4      int *p;
5 {
6   int foo = 2;
7
8   while (foo > bar)
9     {
10       foo -=  bar;
11       *p++ = foo;
12       bar = 1;
13     }
14 }
15
16 main ()
17 {
18   int tab[2];
19   tab[0] = tab[1] = 0;
20   f (tab);
21   if (tab[0] != 2 || tab[1] != 1)
22     abort ();
23   exit (0);
24 }