OSDN Git Service

Fix PR 17408 and PR 17409.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / 930614-1.c
1 f (double *ty)
2 {
3   *ty = -1.0;
4 }
5
6 main ()
7 {
8   double foo[6];
9   double tx = 0.0, ty, d;
10
11   f (&ty);
12
13   if (ty < 0)
14     ty = -ty;
15   d = (tx > ty) ? tx : ty;
16   if (ty != d)
17     abort ();
18   exit (0);
19 }