PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / lto / pr56168_0.c
blob13f768e7e7662c4f7dd2271b5044ae7090003eb3
1 /* { dg-lto-do run } */
2 /* { dg-lto-options { { -flto -O -ffast-math -fno-builtin } } } */
4 extern double pow(double, double);
5 extern void abort (void);
6 volatile double x = 1.0;
7 int main(int argc, char **argv)
9 double d1 = x;
10 double d2 = pow(d1, 1.0 / 3.0);
11 double d3 = d1 * d1;
12 if (d3 != 1.0 || d2 != 0.0)
13 abort ();
14 return 0;