summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/proc_ptr_8.c
blob: c732ff6667c0f230f8bb602b30801d7ede9ca967 (plain)
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;
}