f2.c   [plain text]


foo (double *p)
{
  p[0] = p[1];
}