gcc/testsuite/gcc.dg/20001009-1.c

   1 /* { dg-do compile { target fpic } } */
   2 /* { dg-options "-O2 -fpic" } */
   3
   4 extern void foo (void *a, double x, double y);
   5 void
   6 bar (void *a, double b, double c, double d, double e, double f, double g, double h, double i, double j, double k[6])
   7 {
   8   double l, m, n, o, p;
   9   double q, r, s, t, u;
  10   double x, y, v, w;
  11   double z = 0.5 * j;
  12   double aa;
  13   l = b - 3 * d;
  14   m = 4 * f;
  15   n = f - h;
  16   q = c + 3 * g - i;
  17   r = 2 * (e - 2 * g + i);
  18   s = g - i;
  19   if (l != 0.0)
  20     {
  21       aa = 0.0;
  22       o = (- m + aa);
  23       p = (- m - aa);
  24       if (o > 0.0)
  25         {
  26           x = ((b-h)*o + 3*(d+h)*o + 3*(f-h)*o);
  27           y = ((c-i)*o + 3*(e+i)*o + 3*(g-i)*o);
  28           foo (a, z, w);
  29           foo (a, -z, w);
  30         }
  31       if (p > 0.0)
  32         {
  33           x = ((b+3*f-h)*p + 3*(d-2*f+h)*p + 3*p);
  34           y = ((c+3*g-i)*p + 3*(e-2*g+i)*p + 3*p);
  35           v = x * k[0] + y * k[2];
  36           w = x * k[1] + y * k[3];
  37           foo (a, z, w);
  38           foo (a, - z, w);
  39         }
  40     }
  41   if (q != 0.0)
  42     {
  43       aa = 0.0;
  44       t = (- r + aa) / (2 * q);
  45       u = (- r - aa) / (2 * q);
  46     }
  47 }