libgfortran/ChangeLog:
[official-gcc.git] / gcc / testsuite / gcc.dg / pr29921.c
blob7689f54ce250b81ed328303851f541aef6e1bcf2
1 /* With -ffast-math, the latice value for t changes from -0.0 to 0.0 in this
2 testcase. */
4 /* { dg-do compile } */
5 /* { dg-options "-O2 -ffast-math" } */
7 double test (int param)
9 double a = 0.0, b = -1.0, t;
10 int i;
12 for (i = 0; i < 100; i++)
14 t = a * b;
15 if (param)
16 b = 2.0;
19 return t;