2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 930614-1.c
blob7b206344b3a5d118b05bfc45589a8cb75bbc8ffd
1 f (double *ty)
3 *ty = -1.0;
6 main ()
8 double foo[6];
9 double tx = 0.0, ty, d;
11 f (&ty);
13 if (ty < 0)
14 ty = -ty;
15 d = (tx > ty) ? tx : ty;
16 if (ty != d)
17 abort ();
18 exit (0);