gcc/testsuite/gcc.c-torture/execute/20010605-2.c

   1 void foo (), bar (), baz ();
   2 int main ()
   3 {
   4   __complex__ double x;
   5   __complex__ float y;
   6   __complex__ long double z;
   7   __real__ x = 1.0;
   8   __imag__ x = 2.0;
   9   foo (x);
  10   __real__ y = 3.0f;
  11   __imag__ y = 4.0f;
  12   bar (y);
  13   __real__ z = 5.0L;
  14   __imag__ z = 6.0L;
  15   baz (z);
  16   exit (0);
  17 }
  18
  19 void foo (__complex__ double x)
  20 {
  21   if (__real__ x != 1.0 || __imag__ x != 2.0)
  22     abort ();
  23 }
  24
  25 void bar (__complex__ float x)
  26 {
  27   if (__real__ x != 3.0f || __imag__ x != 4.0f)
  28     abort ();
  29 }
  30
  31 void baz (__complex__ long double x)
  32 {
  33   if (__real__ x != 5.0L || __imag__ x != 6.0L)
  34     abort ();
  35 }
  36