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