1 /* { dg-do compile } */
2 /* { dg-options "-O2 -funsafe-math-optimizations -ftrapping-math -fdump-tree-recip -fdump-tree-lim2" } */
3 /* { dg-warning "'-fassociative-math' disabled" "" { target *-*-* } 0 } */
4
5 double F[2] = { 0., 0. }, e = 0.;
6
main()7 int main()
8 {
9 int i;
10 double E, W, P, d;
11
12 /* make sure the program crashes on FP exception */
13 unsigned short int Mask;
14
15 W = 1.;
16 d = 2.*e;
17 E = 1. - d;
18
19 for( i=0; i < 2; i++ )
20 if( d > 0.01 )
21 {
22 P = ( W < E ) ? (W - E)/d : (E - W)/d;
23 F[i] += P;
24 }
25
26 return 0;
27 }
28
29 /* LIM only performs the transformation in the no-trapping-math case. In
30 the future we will do it for trapping-math as well in recip, check that
31 this is not wrongly optimized. */
32 /* { dg-final { scan-tree-dump-not "reciptmp" "lim2" } } */
33 /* { dg-final { scan-tree-dump-not "reciptmp" "recip" } } */
34
35