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