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