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