Fix Ada runtime library breakage on Solaris
[official-gcc.git] / gcc / testsuite / gcc.dg / pr19340.c
blobc75d35d1d01a8755bca00133932f87a7c1707424
1 /* { dg-do compile } */
2 /* { dg-options "-O1 -fschedule-insns2 -fsched2-use-superblocks" } */
3 /* { dg-require-effective-target scheduling } */
5 extern double f (double x);
7 double g (int a)
9 int b, c, d, e = 0;
10 double h;
12 for (d = 0; d < a; d++)
13 for (c = 0; c < a; c++)
14 b = 1;
16 h = (double) e / (double) a;
18 if (h)
20 h = 1.0 / h;
21 h = f (h);
23 else
24 h = 1.0;
26 return h;