OSDN Git Service

* gcc.dg/pr19340.c: Skip for mmix-*-* and cris-*-*.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / pr19340.c
1 /* { dg-do compile } */
2 /* { dg-options "-O1 -fschedule-insns2 -fsched2-use-traces" } */
3 /* { dg-skip-if "No scheduling" { mmix-*-* cris-*-* } { "*" } { "" } } */
4
5 extern double f (double x);
6
7 double g (int a)
8 {
9   int b, c, d, e = 0;
10   double h;
11
12   for (d = 0; d < a; d++)
13     for (c = 0; c < a; c++)
14       b = 1;
15
16   h = (double) e / (double) a;
17
18   if (h)
19     {
20       h = 1.0 / h;
21       h = f (h);
22     }
23   else
24     h = 1.0;
25
26   return h;
27 }