gnu/dist/gcc4/gcc/testsuite/gcc.c-torture/execute/20070614-1.c

   1 extern void abort (void);
   2
   3 _Complex v = 3.0 + 1.0iF;
   4
   5 void
   6 foo (_Complex z, int *x)
   7 {
   8   if (z != v)
   9     abort ();
  10 }
  11
  12 _Complex bar (_Complex z) __attribute__ ((pure));
  13 _Complex
  14 bar (_Complex z)
  15 {
  16   return v;
  17 }
  18
  19 int
  20 baz (void)
  21 {
  22   int a, i;
  23   for (i = 0; i < 6; i++)
  24     foo (bar (1.0iF * i), &a);
  25   return 0;
  26 }
  27
  28 int
  29 main ()
  30 {
  31   baz ();
  32   return 0;
  33 }