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