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