summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.c-torture/execute/func-ptr-1.c
blob: 55f0e10660fcf623e0c8ee76b69cabd658f0ceb5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
static double f (float a);
static double (*fp) (float a);

main ()
{
  fp = f;
  if (fp ((float) 1) != 1.0)
    abort ();
  exit (0);
}

static double
f (float a)
{
  return a;
}