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

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