gcc/testsuite/gcc.c-torture/execute/930930-1.c

   1 /* { dg-additional-options "-std=gnu89" } */
   2
   3 __extension__ typedef __PTRDIFF_TYPE__ ptr_t;
   4 ptr_t *wm_TR;
   5 ptr_t *wm_HB;
   6 ptr_t *wm_SPB;
   7
   8 ptr_t mem[100];
   9
  10 f (mr_TR, mr_SPB, mr_HB, reg1, reg2)
  11      ptr_t *mr_TR;
  12      ptr_t *mr_SPB;
  13      ptr_t *mr_HB;
  14      ptr_t *reg1;
  15      ptr_t *reg2;
  16 {
  17   ptr_t *x = mr_TR;
  18
  19   for (;;)
  20     {
  21       if (reg1 < reg2)
  22         goto out;
  23       if ((ptr_t *) *reg1 < mr_HB && (ptr_t *) *reg1 >= mr_SPB)
  24         *--mr_TR = *reg1;
  25       reg1--;
  26     }
  27  out:
  28
  29   if (x != mr_TR)
  30     abort ();
  31 }
  32
  33 main ()
  34 {
  35   mem[99] = (ptr_t) mem;
  36   f (mem + 100, mem + 6, mem + 8, mem + 99, mem + 99);
  37   exit (0);
  38 }