xneg.c   [plain text]

foo (a)
     double a;
{
  return -a;
}