gcc/testsuite/gcc.c-torture/compile/20030903-1.c

   1 /* Derived from PR optimization/11700.  */
   2 /* The compiler used to ICE during reload for m68k targets.  */
   3
   4 void check_complex (__complex__ double, __complex__ double,
   5                     __complex__ double, __complex__ int);
   6 void check_float (double, double, double, int);
   7 extern double _Complex conj (double _Complex);
   8 extern double carg (double _Complex __z);
   9
  10 static double minus_zero;
  11
  12 void
  13 conj_test (void)
  14 {
  15   check_complex (conj (({ __complex__ double __retval;
  16                           __real__ __retval = (0.0);
  17                           __imag__ __retval = (0.0);
  18                           __retval; })),
  19                  ({ __complex__ double __retval;
  20                     __real__ __retval = (0.0);
  21                     __imag__ __retval = (minus_zero);
  22                     __retval; }), 0, 0);
  23 }
  24
  25 void
  26 carg_test (void)
  27 {
  28   check_float (carg (({ __complex__ double __retval;
  29                         __real__ __retval = (2.0);
  30                         __imag__ __retval = (0);
  31                         __retval; })), 0, 0, 0);
  32 }
  33