1 /* Procedure pointer test. Used by proc_ptr_7.f90. 2 PR fortran/32580. */ 3 f(void)4 int f(void) { 5 return 42; 6 } 7 assignf_(int (** ptr)(void))8 void assignf_(int(**ptr)(void)) { 9 *ptr = f; 10 } 11