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  }