gcc/testsuite/gcc.dg/tree-ssa/cabs-5.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-O2 -fdump-tree-cplxlower1" } */
   3
   4 double f(double a, double c)
   5 {
   6   _Complex double b = a;
   7   b+= c;
   8   return __builtin_cabs(b);
   9 }
  10
  11 double f1(double a, double c)
  12 {
  13   _Complex double b = __builtin_complex(0.0, a);
  14   b+= __builtin_complex(0.0, c);
  15   return __builtin_cabs(b);
  16 }
  17
  18 /* Check that cabs is expanded into ABS for both f and f1 during complex lowering. */
  19 /* { dg-final { scan-tree-dump-not "__builtin_cabs " "cplxlower1" } } */
  20 /* { dg-final { scan-tree-dump-not "__builtin_sqrt " "cplxlower1" } } */
  21 /* { dg-final { scan-tree-dump-times "ABS_EXPR <" 2 "cplxlower1" } } */
  22