fix pr/45972
[official-gcc.git] / gcc / testsuite / gfortran.dg / proc_ptr_8.c
blobc732ff6667c0f230f8bb602b30801d7ede9ca967
1 /* Used by proc_ptr_8.f90.
2 PR fortran/32580. */
4 int (*funpointer)(int);
6 int f(int t)
8 return t*3;
11 void init()
13 funpointer=f;