Merge from mainline (167278:168000).

[official-gcc/graphite-test-results.git] / gcc / testsuite / gfortran.dg / proc_ptr_8.c

/* Used by proc_ptr_8.f90.
   PR fortran/32580.  */

int (*funpointer)(int);

int f(int t)
{
  return t*3;
}

void init()
{
 funpointer=f;
}