1 /* Used by proc_ptr_8.f90.
2    PR fortran/32580.  */
3 
4 int (*funpointer)(int);
5 
f(int t)6 int f(int t)
7 {
8   return t*3;
9 }
10 
init()11 void init()
12 {
13  funpointer=f;
14 }
15