1f (double *ty)
2{
3  *ty = -1.0;
4}
5
6main ()
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}
20