1  /* { dg-do compile } */
       2  /* { dg-require-effective-target large_double } */
       3  /* { dg-require-effective-target c99_runtime } */
       4  /* { dg-options "-O2 -ffast-math -fdump-tree-forwprop1-details" } */
       5  
       6  extern double fabs (double);
       7  
       8  double f(float f)
       9  {
      10    double t1 = fabs(f); 
      11    double t2 = f / t1;
      12    return t2;
      13  }
      14  
      15  /* { dg-final { scan-tree-dump "__builtin_copysign" "forwprop1" } } */