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 
f(float f)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" } } */
16