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

   1 /* { dg-require-effective-target alloca } */
   2 /* { dg-additional-options "-fpermissive" } */
   3 void f(void * a, double y)
   4 {
   5 }
   6
   7 double g (double a, double b, double c, double d)
   8 {
   9   double x, y, z;
  10   void *p;
  11
  12   x = a + b;
  13   y = c * d;
  14
  15   p = alloca (16);
  16
  17   f(p, y);
  18   z = x * y * a;
  19
  20   return z + b;
  21 }
  22
  23 main ()
  24 {
  25   double a, b, c, d;
  26   a = 1.0;
  27   b = 0.0;
  28   c = 10.0;
  29   d = 0.0;
  30
  31   if (g (a, b, c, d) != 0.0)
  32     abort ();
  33
  34   if (a != 1.0 || b != 0.0 || c != 10.0 || d != 0.0)
  35     abort ();
  36
  37   exit (0);
  38 }