gcc-4.9/gcc/testsuite/gfortran.dg/proc_ptr_8.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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

int (*funpointer)(int);

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

void init()
{
 funpointer=f;
}